< 

m 

r 

< 

€ 

€ 

f 

€ 

I 

f 

f 

€ 

C 

f 

c 

f 

€ 

€ 

«: 

« 

fl 


0000 I 
0000 l 
0000 ! 
0000 i 
0000! 
OOOO! 
0000 ! 
0000! 
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8086 Assembler 

IV. 0 del 


0000 t 



.PROC IBMROH 


0000 ! 


? ft#*#####*#############***################*#################*#*###### 

0000 ! 


; 



0000! 


; Program 

: ROM. IBM 


0000! 


i Author 

: S. G. Schwartz 


0000! 


; Date 

: 2-Dec-82 


0000! 


; Purpose 

This is the ROM on the IBM/PC interface cards 


0000! 


i 



0000! 


? 

The i/o services provide for six calls. 


OOOO ! 


i 

(!) identify card type (omniNet or Flat Cable) 


0000 l 


; 

(2) send/recv cmd to disk drive 


OOOO! 


} 

(3) send message to server 


00001 


? 

(4) send/recv msg from server 


OOOO! 


} 

(5) find any disk server on network 


OOOO! 


i 

(6) send urite cmd to disk drive 


OOOO! 





OOOO! 


i History 

: first Version 2-Dec-82 

SGS 

OOOO! 


i 



OOOO! 



OOOO! 





OOOO I 

OOOO 

omniNet 

EQU 0 


OOOO! 

000! 

flatCbl 

. EQU 1 


OOOO! 





OOOO! 

0001 

cardType 

.EQU flatCbl 


OOOO 1 

0015 

version 

. EQU 15H 


OOOO! 





OOOO! 



.MACRO ifOmniNet 


OOOO 1 



CMPBIM OS: interFace, omniNet 


OOOO! 



JE 7.1 


OOOO! 



. ENDM 


OOOO! 





OOOO! 



.MACRO ifFlatCable 


OOOO ! 



CMPBIM CS: interFace, f latCbl 


OOOO l 



JE 7.1 



ENDM 

;ROM — This is the jump vector 

f 

;cold start entry 
;warm start entry 
ji/o entry point 
;dummy interrupt 

by Corvus Systems; Inc. " 

loading boot program. . . ** 


oooo: 

E8 





coldStart 

JMP 

coldContinue 

0003 ! 

E9 





uarmStart 

JtIP 

warmCorstinue 

0006 ! 

E8 





ioStart 

JMP 

ronlo 

0009! 

E9 





dummy Interrupt 

JMP 

dummyIret 

OOOC ! 









OOOO ! 

28 

43 29 

20 

43 

6F 70 

helloMsg 

. ASCII 

"(C) Copyright 1983 

0036! 

OD 

OA 





. BYTE 

ODH, OAH 

0038 l 

52 

6F 6D 

20 

76 

65 72 


. ASCII 

"Rom version 1.5 — 

0062 l 

OD 

OA 00 





. BYTE 

ODH, OAH, 0 

0065 l 









0065! 






warmContinue 



0065! 

ES 






CALL 

am Init 


f 

f 

< 

< 

€ 

€ 

f 

f 

t 

f 

t 

i 

f 

f 

t 

f 

€ 

« 

C 

€ 

€ 


; in it the xporter interface 
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File: 

ROM 

-for IBM/' 

'PC OHMINET/FLATCABLE 

INTERFACE *** 

0068 l CB 




RETL 



0069 i 



eoldContinue 




0068 i E8 

# *}f" **f 



CALL 

amInit 

iinit the xporter interface 

006C ! E9 




JMP 

1 oadEoot 

;const ii boot 

006F l 



dummy Iret 




Q06F ‘ CF 




I RET 


t dummy IRET because ROM bas 

0070 > 






i up interupt IB AND 10/ ujs 

0070 ‘ 






; dummy them thru here 

0070 l 








€ 

I 

f 

f 

€ 

f 


€ 

1 

I 

f 

€ 

f 

< 

< 

< 

f 


f 

« 

€ 

*! (T 

mus 

i 

t 

t 

€ 

I 

( 

I 

€ 

I 

€ 

f 

€ 

< 

€ 

« 

< 

< 


ct 
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•S-SHf 


Fils: 


0070 i 
0070 ! 

0070: 

0070 I 
0070 l 
00701 
00701 
0070 ! 
0070 ! 

0070; 

0070 ! 
0070 I 
0070 i 
0070 l 
00701 
00701 
0070 S 
0070! 
0070 l 
0070 S 

0070; 

0070 ! 

0070; 

0070 
0070 ‘ 
0070! 

0070 : 

0070! 
0070 i 
0070! 
0070! 
0070 1 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 
0070! 


; ****»##***»*#*##4**#***-**#»4Ht*************#*#**#*#*****«*#4HHt **************** 
i 

> IBM/PC ROM I/O SERVICES 


i (AH) = 0 Identify interface 

i 

; On e xit 

; (AL) =0 if omniNet interface card 

; 1 if fiatCable interface 

.? 

/ with com i Net interfaces 

i 

; (AH) = omniNet transporter number (workstation number) 

; If (AH) a* 255 then transporter with same number 

; is on network. 

i 

i (AH) =* i Xmit/Recv data to drive 

i 

> DS:(SI) address of data to send to drive 

; ES:(DI) address of buffer for data from drive 

; (CX) number of bytes of data to send to drive (MAX = 530d) 

i (DX) number of bytes wanted back from drive (do not include 

i return code -- MAX = 530d ) 

; with OmniNet interfaces 

/ 

; (AL) network address of disk server 

; (BL) number of timer units to wait for reply from disk server. 

; 0 = do not abort) wait forever. 

; timer unit is approx .86 seconds 

i (BH> number of xmit trys. 255 = retry until success. Should 

; be greater 0. 0 = 255 trys. 


; with flatCable interfaces 

> (BL) number of timer units to wait for disk drive to come ready 

; before first byte is sent to drive. This is also the number 

> of timer units to wait for the interface to turn around 

; after the command sequence is sent to the drive. 

i 

; 0 ~ do not abort/ wait forever. 

i timer unit is approx .86 seconds 

; On exit 

/ 

i (AL) return code from drive. 255 = aborted 

; (CX) number of bytes received from drive. Count includes 

; the return code; 

! 

} (AH) = 2 Xmit data to network server 
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0070! 

/ 


ES:(SI> 

address of data to transmit to server 

0070! 

} 


(CX ) 

number of bytes to transmit 

0070; 

s 


C At ) 

network address of server. Use 255 to broadcast 

0070! 

i 



to all servers. 

0070! 

.? 


<BH> 

number of times to try to xmit. If this is a broadcast 

0070! 

i 



number of times to xmit data. 

0070! 

i 




0070! 

! 


On e x i t 


0070! 

i 




0070 i 

i 


(AL) 

0 » all ok 

0070! 

} 


255 - transmission aborted 

0070! 

i 




0070! 

} 

(AH) « 3 

Xmit/Reev data to network server 

0070! 

t 




0070! 

j 


DS:(SI) 

address of data to transmit to server 

0070 < 

i 


ES:(DI) 

address of buffer for data from server 

0070! 

i 


(CX) 

number of bytes to transmit (530d max) 

0070 i 

i 


(DX) 

number of bytes to receive (530d max) 

0070 ! 

f 


(AL) 

network address of server. Use 255 to broadcast 

0070! 

i 



to all servers. 

0070! 

? 


<SL) 

number of timer units to wait for reply from server. 

0070' 

i 



0 = do not abort; wait forever. 

0070 1 

i 



timer unit = approx .86 seconds 

0070 I 

i 


(SH) 

number of times to try. Should be greater than 

0070 ! 

t 



zero. Zero = 255 times. 

0070 I 

s 




0070! 

f 


On exit 


0070! 

f 




0070! 

? 


CAL) 

0 = all ok 

0070! 

f 


255 ~ transmission aborted 

0070 ! 

i 




0070 ! 

t 

(AH) = 4 

Find any 

! disk server on network. Uses simple broadcast command 

0070! 

i 


any version disk server recognizes this command. Requests 2 and 

0070! 

} 


require a disk server with multiple server support. 

0070! 

t 




0070! 

} 


C BL) 

number of timer units to wait for reply from server. 

0070 l 

i 



0 = do not abort) wait forever. 

0070! 

t 



timer unit - approx .86 seconds 

0070! 

i 


<BH) 

number of times to try. Should be greater than 

0070! 

i 



zero. Zero = 255 times. 

0070! 

s 




0070! 

i 


On exit 


0070! 

t 




0070 ! 

t 


CAL) 

0 = all ok 

0070! 

i 


255 = transmission aborted 

0070! 

a 




0070! 

i 


(AH) 

network address of disk server that responded 

0070! 

g 




0070! 

i 

(AH) « 5 

Send write command to drive 

0070 ! 

} 




0070! 

i 


DS: (SI > 

address of command to send to drive 

0070! 

t 


ES: (DI) 

address of data to send to drive 

0070! 

} 


(CX) 

number of bytes of command to send to drive (normally 4) 

0070! 

l 


(DX) 

number of bytes of data to send to drive (normally 512.) 

0070! 

i 






ROM for IBM/PC OMN I NET / FLAT C ABLE INTERFACE 




< 

« 

f 

c 

€ 

€ 
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I 

r 

■r 

t 

€ 

f 

C 

I 

€ 

C 

t 

€ 

«) 

« 
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Page 


0070 ! 
0070 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 « 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070! 
0070 ! 
0070! 
0070! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0070 ! 
0000 ! 
0000 ! 
0001 ! 
0002 ! 
0003 ! 
0003 ! 
0003 ! 
0003! 
0003 ! 
0070 ■ 
0070 I 
0070! 

0070; 

0070! 
0070 ! 


IBMROM 


File: 


0003 




with OmniNet interfaces 


CAL) 

CBL) 


(BH) 


network address of disk server 

number of timer units to wait for reply from disk server. 

0 = do not abort.- wait forever, 
timer unit is approx .86 seconds 

number of xmit trys. 255 = retry until success. Should 
be greater O. 0 = 255 trys. 


with flatCable interfaces 


(BL > 


number of timer units to wait for disk drive to come ready 
before first byte is sent to drive. This is also the number 
of timer units to wait for the interface to turn around 
after the command sequence is sent to the drive. 

0 = do not abort; wait forever, 
timer unit is approx .86 seconds 


On exit 

CAL) 

CCX) 


return code from drive. 255 = 
number of bytes received from 
the return code; 


aborted 

drive. Count includes 


i 

; RECORD DESCRIPTIONS 

i 

} #*«**#«###**##*##&#*#*-$4#*#***#*##&#**#*&*#*******##&**»tt**tt#ft***#^ 

.ASECT 
. GRG 0 

bootCmd .BYTE ;const ii boot drive cmd 

bootType .BYTE ;computer number(type) 

bootBloc k .BYTE > block number to read 

bootEnd 


bootLen 


. ECU 
.PSECT 


bootEnd 


,• *######*#•»##*«##* a#*## a*## 

I 

; EQUATES 

I 


0070! 

OOFF 

brdCast 

. EQU 

OFFH 

;xporter brdcast address 

0070! 

0040 

xmitCmd 

. EQU 

40H 

;xporter send cmd 

0070! 

0006 

ioEntry 

. EQU 

6 

; io offset into Rom 

0070! 

DFOO 

romSeg 

. EQU 

ODFOOH 

; seg address for ROM 


i: 

< 

€ 

€ 

€ 

< 

€ 

< 

i 

f 

I 

f 

f 

I 

€ 

f 

€ 

« 

C 

t 

t 




f 

I 

f 

f 

i 

€ 

f 

f: 

€ 

i: 

t; 

r 

r 

c 

c 

€ 

f 

I 
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File: *** ROM 

for IBM/PC 

: QMN1NET/FLATC ABLE 

0070 : 

7000 

1oadAd d 

. EQU 

7CQQH 

0070! 

FFFE 

stac kAdd 

. EQU 

CFFFEH 

0070! 

0070! 

0009 

ibmType 

. EQU 

9 

0070! 

7000 

bootSsrver 

. EQU 

7Q00H 

0070! 

7001 

bootSource 

. EQU 

b ootServer+1 

0070! 

7004 

1oadAd dReg 

. EQU 

bcotSource+bootLen 




0070 ; 

0070 ! 
0070! 
0070! 
0070! 
0070! 


0070! 
OOSB ! 

45 

00 

7^") 

/ c£ 

—y 

/ d 

6F 

72 

20 

6C 

b ootMsg 

. ASC11 
. BYTE 

0080 ! 
OOBC ! 

54 

00 

Tc? 

61 

6E 

73 

70 

6F 

dup Xp ortMsg 

. asc ir 
. BYTE 

OOBD; 
G0E6! 

54 

00 

68 

65 

/ Cl 

65 

20 

&1 

noSrvlisg 

. ASC11 
. BYTE 

00E7! 
OOFA ? 

36 

00 

34 

4B 

20 

6D 

65 

6D 

need&4msg 

. ASC11 
. BYTE 


00FB ! 
OOFB ! 
OQFB ! 
OOFB ! 
OOFB ! 
OOFB ! 
OQFB ! 
OOFB l 
OOFB ! 
OOFB 1 


OOFB ! 
OOFB ! 
OOFB! 
OOFB ! 
OOFB ! 


; computer- type number -for ibm 
iworkspace for loadBoot 


MESSAGES 

"Error loading boot program " 

0 

"Transporter with same address is on the network " 

0 

“There are no disk servers on the network " 

0 

“64K memory required" 

0 

i 

; OMNINET BUFFERRED TRANSPORTER CONSTANTS 

i 

; The bufferred Omninet transporter has an on-board 4K RAM buffer 
} that is pointed to by a 12-bit counter 

i 

;input port to read status of transporter 
; to wait for transporter ready (bit 7 high) 
i when strobing address to transporter 

i input port to read transporter buffer 
;at loc pointed to by xporter counter 
i without counter auto-incrementing/ used to 
;read command header or result vector 

ir/w port to read/write transporter buffer 
imem at location pointed to by xporter counter 
;and counter is automatica11y incremented 

ioutput port to strobe address to transporter 

;output port to set high byte of counter 
i output port to set low byte of counter 

imask for transporter ready bit 

i 

; FLATCABLE INTERFACE CONSTANTS 


OOFB ! 
OOFB! 
OOFB ! 
OOFB ! 

0248 

omStatus 

. EQU 

0248H 

OOFB ! 
OOFB ! 
OOFB! 
OOFB! 
OOFB ! 

0249 

omHeader 

. EQU 

0249H 

OOFB : 
OOFB ! 
OOFB ! 
OOFB ! 

024B 

omData 

. EQU 

024BH 

OOFB ! 
OOFB ! 

0249 

omniPort 

. EQU 

0249H 

OOFB ! 

0248 

omHiCntr 

. EQU 

Q248H 

OOFB ! 
OOFB ! 

024A 

omLoCntr 

. EQU 

024AH 

OOFB ! 

0080 

omRdyBit 

. EQU 

80H 


I 

C 

€ 

« 

f 

I 

< 

€ 

i 

I 

4 

€ 

4 

i 

€ 

< 

< 

< 

< 

« 

f 

« 
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OOFB ! 
OOFB ! 

02EE 

flatData 

. EGU 

02EEH 

■, data i/o port number 

OOFB ! 

02EF 

flatStatus 

. EGU 

02EFH 

;status port number 

OOFB ; 

0001 

flatRsady 

. EQU 

1 

;drive ready bit mask 

OOFB ! 
OOFB ! 

0002 

flatBusDir 

. EGU 

o 

;bus direction bit ma 

OOFB ! 



OOFB ! 


s 




OOFB ! 


; OMNINET TRANSPORTER CONSTANTS, 

EQUATES, and MACROS 

OOFB { 


i 




OOFB S 



OOFB i 
OOFB ! 

0002 

g oLen 

. EQU 

*n 

CC } 

LENGTH OF GO MSG 

OOFB 

OOBO 

rcvSocket 

. EGU 

OB OH 

SOCKET TO RECEIVE 

OOFB I 

OOBO 

sendSock e t 

. EGU 

OB OH 

DISK SERVER REQUEST SOCKET 

OOFB ! 

OOAO 

rsstSock et 

. EQU 

OAOH 

DISK SERVER REST OF CMD SOCKET 

OOFB ! 

0080 

brdSocket 

. EGU 

80H 

DISK SERVER BROADCAST SOCKET 

OOFB ! 

0080 

srvSoc ket 

. EGU 

80H ; 

SOCKET TO RECEIVE SERVER COMMANDS 

OOFB ! 
OOFB ' 

0212 

buffLen 

. EGU 

530. i 

length of send and recv buffers 

OOFB 1 



.MACRO 

flipRel 


OOFB 1 



. BYTE 

CXi-omVectors> / 256 

OOFB ! 



. BYTE 

CXl-omVec tors> & OFFH 

OOFB ! 
OOFB : 



. ENOM 



OOFB l 



.MACRO 

flip 


OOFB : 



. BYTE 

7.1 / 256 


OOFB i 



. BYTE 

7.1 t: OFFH 

OOFB! 
OOFB ' 



. ENDM 



OOFB ! 



.MACRO 

ifUnderS 


OOFB ! 



CMPBIM 

( EP+cmd ), 

5 

OOFB ! 



UE 

*10 


OOFB ! 



CMP 

< SP+sendLen ), 5 

OOFB ! 



UB 

7.1 


OOFB ! 
OOFB ! 
OOFB ! 


*10 

. ENDM 



OOFB! 



OOFB ! 
OOFB ! 


i 

i WORKSPACE 

RECORD DES 

CRIPTIGN 


OOFB ! 






OOFB ! 



OOFB 5 



.ASECT 



0003! 



. ORO 

0 


0000! 


sendBufAdd 

. WORD 


; address of users data 

0002 ! 


recvBufAdd 

. WORD 


i address of user buffer 

0004 ! 


sendSeg 

. WORD 


; seg reg to address the above 

0006 ! 
0008! 


rscvSeg 

. WORD 



0008 ! 


sendLen 

. WORD 


i length of users data 

OOOA! 
OOOC ! 


recvLen 

. WORD 


;length of users buffer 

OOOC ! 


cmd 

. BYTE 


;special handling for cmd 2 

OOOD ! 


server 

. BYTE 


;server network address 




I 
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ROM for IBM 

OGGE! 




wa i t Time 

. BY'IE 

OOOF 1 




r e t r y s 

. BYTE 

00101 




stopT line 

. WORD 

00121 




cmdByte 

. BYTE 

00131 






00131 




cmdAddr 

. WORD 

0015 1 




rs1tAddr 

. WORD 

0017! 




ma s k 

. BYTE 

00181 






00181 




xResu1t 

. BYTE 

00191 




xHost 

. BY I E 

001A 1 





. WORD 

001C 1 






001C 1 




xRetLen 

. WORD 

001E 1 




xRetCode 

. BYTE 


00IF! 

001F! 

00IF! 00IF 
00IF1 
00FB 1 
OOFB 1 
OOFB I 
OOFB 1 
OOFB l 
OOFB 1 
OOFB 1 
OOFB! 

OOFB ,* 

OOFB ! 

OOFB 1 
OOFB i 
OOFB 1 
OOFB ! 

OOFB ! 

OOFB ! 

OOFB ! 

OOFB 1 
OOFB i 
OOFB I 
OOFB ! 

OOFB; 00 

oofc; oo 

OOFD1 0000 
OOFF1 

OOFFI 0000 
01011 00 
01021 
01021 
01021 
01021 
0102 S 
01021 
0102! 00 
01031 00 00 00 
01061 


;used to calc abort time 
iused by retry/abort routines 

i xporter add of cmd vector 
/xporter add of result vector 
;for setup routines 

itransporter status code 
/source host # 

iactual len of received data (msb first) 

/length of data received from server 
/•return code from server 


worfcEnd 
war fcSi i e 


EGU 

PSECT 


uor kEnd 


; ■»#■»-Sr-a -s- «■#«•##*#####& 

i 

i OHMINET TRANSPORTER RESULT VECTORS, COMMAND VECTORS/ 

; and BUFFERS 

f 

i #*#**###**###******##* * &*&&&&##&&##&&#&&#&###&#&&&&&&#&&&# 

omVector % 

/ 

,• RESULT V E C T 0 R S AREA 

; ###*#*#****#**#•*•»•***■»■«• a -4 •»*#*###•$**#*****#*#*#****###**#***##-•»#'* 

• *##***##**##**#*****»* 

; RESULT VECTOR FOR RECEIVE MESSAGE FROM DISK SERVER — COMMAND COMPLETE 

i 

j *##***#* ***&#&*##&##*«**##*>*####**#&**«##*##*#*##**#****’#•#*•#•**•# 

rResult .BYTE 0 ;transporter status code 

rResHost .BYTE 0 > source host # 

.WORD 0 ;actual len of received data (msb first) 


rHdrRetLen 

rHdrRstCode 


.WORD 0 
.BYTE 0 


/length of data received from server 
/return code from server 


l 

/• RESULT VECTOR FOR MESSAGE OF 1 TO 4 BYTES IN LENGTH 


sResu11 . BYTE 0 ;transporter status code 

. BLOCK 3 i3 bytes filler 
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01061 

0000 

01081 


010 A 1 


010 A 1 


G10AS 


010A 1 


010A1 


010A 1 


0 1 0 A 1 

00 

010B 1 


010B 1 


01 OB 1 


01 OB 1 


01 OB { 


010B 1 


010B 1 

00 

010C 1 

00 

01OD 1 

0000 

01 OF 1 


01 OF 1 


01 OF 1 


01 OF.* 


01 OF 1 


01 OF 1 


01 OF 1 

00 0< 

01111 


0111 1 


01111 


01111 


01111 


Oil! 1 


01111 

00 

01121 

00 

01131 

0000 

0115! 


01151 


01151 


01151 


01151 


0115! 


01151 

OG 

01161 


01161 


01161 


01161 


0116 1 


01161 


0116! 

00 

0117! 


0117 1 


01171 


0117! 


01171 


0117! 


0117? 

00 


sHdrToLen .WORD 0 ;# of bytes sent to server 

■sHdrRe tLen flip buffLen ; # of bytes wanted from server 

s 

; RESULT VECTOR FOR SERVER MESSAGE 

f 

i ft*#*##*#*#### 4###**##*###*#**#*##*#*###*##*##*##**### 

srvResult .BYTE 0 ; server xmit command result 

; **####**##*##*#***####*##*###*#*#####*######*#*##*#########*##*#### 


; RESULT VECTOR FOR SERVER RECEIVE MESSAGE 

; ***############**### a-#**#*#####*#*#a#*#**##*#*###**#*##*##*######** 
srvRResu.lt .BYTE O 

srvRHost .BYTE G /host num of sender 

srvRLen . WORD 0 i length of message 

;*##*##*##*##**#*##**#*####**######*#####*##*##########**##*#### 

i 

; DISK SERVER SENDS BACK A MESSAGE SAYING GO 


; **#*****#**#**##***##***#*#####*****#*##*#***####*##*##*######* 
goData . BLOCK GOJLEN 

; **#*##* ■it#**#**##*#####***#*###****###########**##########**#### 


; RESULT VECTOR TO PROCEED MESSAGE WITH 5 BYTES OR MORE LENGTH 


; **#*#*###*######*####**########*##########*############*#*#*#*# 
goResult . BYTE 0 ; transporter status code 

goResHost . BYTE 0 ;source host # 

. WORD 0 ; length of go msg 

; **#*#**###*******##*#*****######*#*###*##*#####*####*#*#####*## 

i 

; RESULT VECTOR FOR BYTES 5-LEN MESSAGE 

# 

restResult .BYTE 0 ; return code 


t 

i RESULT VECTOR FOR CANCEL SOCKET COMMAND 

| 

canResu1t .BYTE 0 


; *#**#### it-#*##*#*##*###*#############*#####*##########**###*#### 


RESULT VECTOR FOR WHO AM I CMD 


t ft*##*###*###*###### £ ft####*#########*#######*####*#######*####*# 

whoResult . BYTE O 
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0118! 


0118! 


OllSi 


ones 


0118! 


0118! 


0118! 

00 

0119 ! 


0119! 


0119! 


0119! 


0119! 


0119! 


0119! 


0119! 


0119! 


01 19! 


0119! 


0119! 


0119! 


0119! 

FO 

011A! 

00 

0118 ! 


01 ID ! 

BO 

01 IE ! 

00 

01 IF! 


0121 ! 

00 02 

0123! 

O0 

0124! 


0124 ! 


0124 ! 


0124! 


0124 S 


0124! 


0124! 


0124 ! 


0124 ! 

10 

0125! 

00 

0126! 


0128! 

BO 

0129! 


0129! 


0129! 


0129! 


0129! 


0129! 


0129! 


0129! 


0129! 

10 

012A! 

00 

0128 ! 


0120! 

80 

012E ! 


012E! 


012E! 





; RESULT VECTOR FOR ECHO CMC 

echoR&sult .BYTE 0 

; *#*##*##•*#*###*#*##**#***■*#•*##########*###*****#*##*#*#*#####** 

i 

/COMMA N D VECTORS AREA 


i 

; GO_CMO 

C-CRECEIVE PROCEED MESSAGE FROM DISK SERVER — TRANSPORTER COMMANDS 
-s •»••;»*•}«-a--5--»-3-•»•*•»-a-•»-s-•»•»•a-^'a-'B'-s-^-•»*'>#•»•«• •»-»-3 -->#'»-)f•a-### 


goCmd 


. BYIE 
. BYTE 
FLIPREL 

. BY 1 E 
. BYTE 
FLIPREL 

.BYIE 
. BYTE 


OFOH 

0 

g oResu11 
rcvSocfeet 
0 

g oData 
0 j goLen 


TRANSPORTER SET UP RECEIVE CMD 

MSB OF 3 BYTES OF 

ADDR OF GO RESULT VECTOR 

SOCKET TO READ INTO 

MSB OF 3 BYTES OF 

ADDRESS OF DATA 

LENGTH OF DATA BUFFER 

LENGTH OF HEADER 


■*#*#*#**###*#•»#*■«*#•*##•*•#**•»##*#■*##•**#*###**•»##*#*#•»*#***#■»■•»•*<*### 


C AN_R ECV_CMD 

•CCCANCEl NORMAL RECEIVE SOCKET TRANSPORTER COMMAND» 




canRecvCmd . BYTE 01OH 

. BYTE O 

FLIPREL canResuIt 
. BYTE rcvSoc ket 


; TRANSPORTER CANCEL SOCKET CMD 

; ADDR OF RESULT VECTOR 
; SOCKET TO CANCEL 


; •a***#****##*#*#*******-*^***#**#***#*****************#*****«•**«•** 
CAN_SRV_CMD 

i 

; -CCCANCEL CONST II RECEIVE SOCKET TRANSPORTER COMMAND» 

; #########•H-############**##########################-############# 

canSrvCmd . BYTE 01OH ; TRANSPORTER CANCEL SOCKET CMD 

. BYTE O 

FLIPREL canResuIt ;ADDR OF RESULT VECTOR 

.BYTE srvSocket iSOCKET TO CANCEL 

i •****##***#**#*********•*;»**•*»***■***#*********#***#**#****•***•***# 
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G12E! 


012E! 


012E! 


012E! 


012EJ 

FO 

012FI 

00 

01301 


01321 

BO 

0133! 

00 

0134! 

**** 

0136! 


0138! 

03 

0139! 


0139! 


0139! 


0139! 


0139! 


0139! 


0139! 


0139! 

40 

013A! 

00 

013B ! 


013D! 

BO 

013E! 

00 

013F! 

aaa* 

0141 ! 

00 04 

0143! 

04 

0144! 

00 

0145! 


0145! 


0145! 


0145! 


0145! 


0145! 


0145! 


0145! 


0145! 

40 

0146 ! 

00 

0147! 


0149! 

AO 

014A ! 

00 

014B ! 


014D! 

0000 

014F! 

00 

0150! 

00 

0151 ! 


0151 ! 


0151 ! 


0151 ! 


0151 ! 


0151 ! 


0151 ! 


0151 ! 

40 

0152! 

00 

0153! 



R CMD 


•CCSETUP RECEIVE - TRANSPORTER COMMAND» 




rCmd 


rCmdData 
rCmdLen 


. BYTE 
. BYTE 
FLIPREL 
. BYTE 
. BYTE 
. WORD 
■flip 
. BY IE 


OFOH 

0 

rResult ; 

rcvSocfcet ; 

r\ 

\J i 

r ec vBuf-oitivsc tor s 
buffLen ; 

3 


SETUP RECEIVE CMD 
MSB OF 3 BYTES OF 
ADDR OF RESULT VECTOR 
SOCKET TO READ INTO 
MSB OF 3 BYTES OF 
/Will be flipped 
READ 512 BYTES 
HEADER LENGTH IS 3 




S CMD 


; «TRANSMIT 1ST 4 BYTES TO DRIVE — TRANSPORTER COMMAND» 


; *•» ■# a####a# a-*aaa aaaaaaa -s aaaa-a-a-St-aaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaa 


"5 


Cmd 


sCmdData 


.BYTE 40H ; 

.BY IE 0 

FLIPREL sRssult ; 

.BYiE sendSocket ; 

.BYIE O 

.WORD sendBuf-omVee tors 

. BYTE 0/ 4 

. BY IE 4 ; 

.BYIE O ; 


TRANSPORTER SEND MSG CMD 

MSB OF 3 BYTES OF 

ADDR OF RESULT VECTOR 

SOCKET TO SEND TO 

MSB OF 3 BYTES OF 

;ADDR OF DATA 

DATA LENGTH IS 4 

LENGTH OF CONTROL HEADER IS 4 

NETWORK ADDRESS OF DISK SERVER 


i aaaaaaaaaaa »•»#■»** ****** •**#****»«**a«##a**»****a*a##*##a******** 


; REST CMD 


•CCTRANSMIT BYTES 5--LEN TO DISK SERVER — TRANSPORTER COMMAND» 


■, a ********* s *** **a -j*--:* -s a a* ************ -a *************************** 


res tCmd 


restData 
res tLen 


. BYTE 40H i TRANSPORTER SEND MSG CMD 

. BYTE 0 / MSB OF 3 BYTES OF 

FLIPREL restResult ; ADDR OF RESULT VECTOR 

.BYTE restSocket ; SOCKET TO TRANSMIT INTO 

. BYTE 0 ; MSB OF 3 BYTES OF 

.WORD sendBuf-omVec tors+4 ; ADDRESS OF DATA 

. WORD 0 i LENGTH OF DATA 

.BYTE 0 » NO HEADER 

. BYTE 0 i NETWORK ADDRESS OF DISK SERVER 




; SRV CMD 


; « transmits SERVER pac ket» 

; *************************3***************************************** 

srvCmd . BYTE 40H ; TRANSPORTER SEND MSG CMD 

.BY IE 0 

FLIPREL srvResult ; ADD OF RESULT VECTOR 






IBMROH 


Fils: 
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Page - 

- 11 

0155! 

80 

0156 ! 

00 

015 71 


0157! 


0159! 

0000 

015B ! 

00 

01 SC I 

FF 

015D ! 


015D! 


015D! 


015D! 


015D! 


015D ! 


01 SB! 


015D ! 

FO 

OISE! 

00 

015F! 


016! ! 

80 

0162! 

00 

0163! 


0165! 


0167! 

00 

0168! 


0168! 


0168! 


0168! 


0168! 


0168! 


0168! 

01 

0169! 

00 

0 16 A ! 


016C ! 


0 16C ! 


016c « 


016C ! 


016 C ! 


016C ! 


016C ! 


016C ! 

02 

016D! 

00 

016E ! 


0170! 

00 

0171 ! 


0171 ! 


0171 ! 


0171 ! 


0171 ! 


0171 ! 


0171 f 

01 FE 

0174! 

00 01 

0176! 

00 00 

0178! 

FF 

0179! 


0179! 


0179! 



01 



. BYTE 

srvSocket 



. BYTE 

0 


srvCmdData 

. WORD 

sendBuP-omvec tors 


srvCmdLen 

. WORD 

0 

LENGTH OF MESSAGE 


. BYTE 

0 ; 

NO HEADER 


. BYTE 

OFFH i 

NETWORK ADD OF SERVER 


; SRV_R_CMH 

; « sets up receive for SERVER packet» 


srvRCmd 

. BYTE 

CFOH ; 

set up 

receive 


. BYTE 

0 




FLIPREL 

srvRResult ; 

add o-f 

result vector 


BYTE 

srvSocket 




. BYTE 

0 



srvRCmdData 

. WORD 

recvBuf-omVectors 

i add 

of data 

srvRCmdLen 

flip 

b uffLen ; 

length 

of packet 


Itf 

!> 

CQ 

0 

length 

of header 


; ####*#####*####*###### * 3 **•##* tf*######*###*#####*###########*###*### 

} 

; WHO„Cf1D 

; *##**#*#»##*##«********-*##»»*##*»****####»#*«**4Hi'**#****##***###### 

whoCmd . BY IE 01 ; uih o am i cmd 

.BYTE 0 
FLIPREL uh©Result 


; *#*###**»#*«#####*****•¥«#«**#«#*##•»####*»*«##«*#*#**'»«#*#**#*#***** 
; ECHO CMD 


; *##**#******#***#««***•*****#*#**•**#***#*****#'## a*#**#***###.*####**# 
schoCmd . BY I E 02 ; echo cmd 

.BYTE 0 

FLIPREL echoResult 
echoHost .BYTE 0 


; ****4HRt#*#4HHt'4 •#•# a >***<3M ^tt#******-**#*#*# #*****#****4Ht’#******#*»****#''SHI-## 


; B DATA ( SENDS AN ILLEGAL COMMAND TO DRIVE) 


; tf************^*****#***********##********###^*************#**#*#****** 


fe Da t a 


.BYTE 01 ;OFEH> 01 

. BYTE 00;01 

. BYTE 00; CO 

. BYTE OFFH 


; PASSWORD TO DISK SERVER 
i 1 BYTES TO DISKSERVER 
i ZERO BYTES BACK 
;• ILLEGAL COMMAND 


; *•»**•»*****#»##*#«***#*-4-4***##«*****##****«#***#*****#**•»*#**#*#***#•* 
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Fil: 


a-#* 
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0179! 


i B_CMD 

TRANSMIT 

BROADCAST 

MESSAGE TO DISK SERVER 

0179! 


} 




0179! 


t&&&&&&&&&# 

a-a-a a- s *a a-aa a-a- 


0179 5 

40 

bCmd 

. BYTE 

40H 

; TRANSPORTER SEND MSG CMD 

017A * 

00 


. BY IE 

>3 


017B I 



FLIPREL 

sResu1t 

; ADD OF RESULT VECTOR 

017D! 

80 


. BYTE 

srvSock e t 

; SOCKET TO SEND TO 

017E! 

00 


. BY IE 

0 


017F5 



FLIPREL 

b Da ta 

; ADD OF DATA TO SEND 

oiei! 

00 08 


. BYTE 

0 , 03 

; LENGTH OF DATA 

0183! 

00 


, BY I E 

0 

; LENGTH OF HEADER 

0184! 

pp 


. BYTE 

OFFH 

; broadcast this command 

0185! 






0185! 






0185! 



0185! 


1 




0185! 


; BR_CMD 

RECEIVE 

BROADCAST 

MESSAGE FROM DISK SERVER 

0185! 






0185! 



0185! 

FO 

bvCmti 

. BYTE 

OFOH 

; TRANSPORTER SET UP BLIND RECEIVE 

0186! 

00 


. BYTE 

0 


0187! 



FLIPREL 

rResu1 t 

; ADD OF RESULT VECTOR 

0189! 

eo 


. BY IE 

rcvSocket 

; SOCKET TO READ INTO 

018A! 

00 


. BYTE 

0 


01 SB ! 

0000 


. WORD 

0 

; ADDRESS OF DATA 

0180 ! 

0000 


. WORD 

0 

; LENGTH OF DATA 

013F! 

03 


. BY IE 

3 

; LENGTH OF HEADER 

0190! 






0190! 


omVectEnd 




0190! 

0095 

omCmdSii e 

. EQU 

onVectEnd 

—omVectors 


0190,' 
01901 
0190 S 
0190 t 
0190 ! 
0190; 
0190,* 
0190! 
0190! 
0190! 
0190! 
0190! 
0190! 
0190! 


;**#*#**«*#**4#»****#***X#****#*******-******##***--******#*4Ht***###*#* 

; OMNINET SEND AND RECV BUFFERS (in transporter ram) 

; X4«**tt44#*#*«4*44*#**tt**#4***4MHt****tt**4#' 

sendBuf ;send buffer follows the last 

r&cvBuf j 5yte of vectors 

; END OF OMNINET DATA STRUCTURES 

i 
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■iHHt 


0190S 
0190 ! 
0190 ‘ 
01901 
01901 
0190 S 


-if # ftftftft ft #• ft ft ft # ft ft ft ft ft ft ft ft " t ft ft ft ft ft ‘3r ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft •?$* ft ft ft ft ft ft # •& ft ft ft ft ft ft ft ft ft ft ft ft ft ■# 


CALL TABLE 


call table For I/O services 


} ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 


0190S 

ft ft ft# 


calITable 

. WORD 

romloO 


0192! 

ftftftft 



. WORD 

rornlo1 


0194! 

ftftftft 



. WORD 

romlo2 


0196! 

ftftftft 



. WORD 

rcittloB 


0193! 

ftftftft 



. WORD 

romIo4 


019A! 

ftftftft 



. WORD 

romlo1 


019C ! 

0006 


ea1lEntries 

. EQU 

Cf-calITable>/2 


0190 ! 








0190 ! 




i ft ft ftft ftftftft ftftftft ft ftftftft ftftftftft X ft ftftftft ftftftftftftftft ftftftft ftftftftft ft ftftftft ftftftftftftftftftftftftftft ftftftft 

0190 ! 




f 




0190 ‘ 




; ROM_IO — I/O 

servicas 

dispatcher 


0190 * 




i 




0190 ! 




; ft ft- ft ftftftft ft ft ft ft ft ft: ft 

ft ft X ft -ft ft ft ftftftftftftftftftftftftftft X ftftftft ftftftft ftft ftftftft ft ftftftftftftftftftftftftftft ftft ft 

01.90 ! 




Rom I o 




0190 ! 

82 

FC 

05 


CMP 

AH>ca1lEntries-1 

i valid request? 

019F ! 

76ftft 



ON A 

$10 

; yes, continue 

01 Ai ! 

BO 

FF 



MOV 

At)OFFH 

;invalid request 

Q 1 A3! 

CB 




RETL 


i return 

01A4 ! 




$ 10 




(J1 A4 ! 

90 




PUSHF 


;save flags 

01A5! 

FC 




CLD 


; set direction forward 

01 A6! 








01 A6! 

55 




PUSH 

EP 

; save all registers us 

01 A7! 

06 




PUSH 

ES 

; except for AX AND CX 

01 A8! 

IE 




PUSH 

Do 


01A9! 

56 




PUSH 

SI 


01AA ! 

57 




PUSH 

DI 


01AB f 

52 




PUSH 

DX 


01 AC ! 

53 




PUSH 

s:< 


01 AD! 








01 AD! 

83 

EC 

1 F 


SUB 

S Pi workSi zs 

i a 1 locate workspace on 

01 BO! 

SB 

EC 



MOV 

BP, SP 

i workspace is addressa 

01 B2! 







; (BP+displacement / 

01B2! 

80 

46 

06 


MOV 

(BP+recvSeg ) , ES 

i save all parents in wo 

01B 5 ! 

SC 

5E 

04 


MOV 

< EP+sendSeg ) ,DS 


01 B8! 

89 

76 

00 


MOV 

(BP+sendbufAdd ) , SI 


01BB ! 

89 

7E 

02 


MOV 

(BP+recvBufAdd ), DI 


01BE ! 

89 

4E 

OS 


MOV 

C BP+sendLen ) ,CX 


oici; 

89 

56 

OA 


MOV 

(BP+recvLen > , DX 


0104! 

88 

46 

OD 


MOV 

( BP+servsr ? , AL 


0107! 

88 

5E 

OE 


MOV 

( EP+wai tTime ) , BL 


01 C A ! 

88 

7E 

OF 


MOV 

< EP+retrys > ,BH 


01 CD! 

88 

66 

OC 


MOV 

(SP+cmd ), AH 


01 DO! 








01 DO ! 

32 

CO 



XOR 

AL, AL 


01D2! 

86 

EO 



X C HO 

AH, AL 


01D4 ! 

D1 

EO 



SHU 

AX, 1 

i offset into call tab 1 

01D6! 

SB 

FO 



MOV 

SI, AX 



it ac k 




I 


< 


< 

I 

€ 

C 

€ 

f 

€ 
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oids; 
0108! 
01DD! 


FF 

94 9001 

Call 

0100« 

S3 

0 4 

IF 

ADD 

01EO! 
01EO! 

5B 



POP 

01E1 ! 

5A 



POP 

01E2! 

5F 



POP 

01 £3t 

SE¬ 



PGP 

01E4 ! 

IF 



POP 

01E5 < 

07 



POP 

01E6 1 
0IE7 ‘ 

50 



POP 

01E7S 

90 



POPF 

01 ES! 

CB 



RETL 


CS:ealliable(SI) 

SP>worksize /deallocate workspace off 

; of stack 

BX /restore all registers used 

DX ; except AX and CX 

DI 

SI 

D3 

ES 

BP 


/and return to caller 


< 

4 

f 

€ 

4 

f 


I 


4 


1 " 

■r 

r 

f 

c 

e 

c 

f 

t 

c 

i 

f 


c 

€ 

€ 

I 

1 

< 

« 

« 

4 

4 

f 

f 
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-s-a-a- 
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01E9! 



01 £9 ! 



01E9! 



01E9! 



01E9I 



01E9 ! 



01E9! 



o 

m 

4) 



01 FI { 

50 


01F2J 

51 


Q1F3! 

ci--n 

•Je£ 


01F4 ‘ 

56 


01F5 * 

9C 


01F6 ! 



01F6! 

33 

CO 

01FS! 

ES 


01FB ! 

FC 


01FC ! 

BE 

FBOO 

01FF! 

B9 

95 00 

0202 J 

BA 

4B 02 

0205' 



0205! 

2E 

AC 

0207! 

EE 


0208 * 

E2FB 

020A! 



020A 5 

B8 

39 00 

020D ! 

ES 


0210! 

BS 

44 00 

0213! 

ES 


0216! 

BS 

50 00 

0219! 

E8 


021C ! 

B8 

5C 00 

021F ! 

ES 

#### 

0222! 

B 8 

68 00 

0225! 

E8 


0228! 



0228« 

9D 


0229! 

5E 


022A! 

5A 


022B ! 

59 


0220 ! 

58 


022D! 

03 


022E! 



022E! 



022E! 

50 


022F! 

ES 


0232! 

EC 


0233! 

SA 

ES 


EC 


0236 < 

SA 

C8 

0238! 

58 


0239! 

E8 


023C ! 

SA 

Cl 

023E! 

EE 



; *#»•*******»•****■»*•*•** •** *4-»******#*#4Ht********#*****»**-****##**##* 

fONIWIT 

; routine to initialise Omninet data structure 

; at xporter buffer addr 0 

; flip the address bytes of all buffer address (assemblr restriction) 

; -aa-a-a-a-ii a-a-aa-a-a-aa-^a-a-a-aaa-axa-aaaaa-aaa-a-a-a-aa'aa-a'a'a-a'a-aa-a-a-a-a-a-a-a-aa-a-a-a-a-a-a'a-aaa- 
Offllnit ifFlatCable omlnitEnd 


PUSH 

AX 

;save all registers user 

PUSH 

cx 


PUSH 

DX 


PUSH 

SI 


PUSHF 



XOR 

AX i AX 

; put at zero in xporter ram 

CALL 

omSetCntr 

;set xporter ram counter 

CLD 



LEA 

SI, omVec tors 


MOV 

CX,omCmdSi ze 

;copy vectors to xporter ram 

MOV 

DX, omData 


LOOSE 

AL, CS: (SI > 


OUT 

DX » AL. 


LOOP 

$5 


MOV 

AX/rCmdData-omVactors ; xchg the two bytes in the buffer 

CALL 

$ 10 

; address fields of all cmd vectors 

MOV 

AX» sCmdData-omVectors ; the pascal assembler would not let the 

CALL 

$10 

# fliprel macro work on forward refs 

MOV 

AX/rsstData-omVsetors 

CALL 

$10 


MOV 

AX/srvCmdData- 

omVec tors 

CALL 

$10 


MOV 

AX/ srvRCrdData 

—omVectors 

CALL 

$10 


POPF 



POP 

SI 

; restore all registers 

POP 

DX 


POP 

CX 


POP 

AX 


RET 


; return 


PUSH 

AX 

, xchg the two bytes in the xporter ram pointed 

CALL 

omSetCntr 

i to by AX 

IN 

DX/ AL 


MOV 

CH/ AL 


IN 

DX, AL 


MOV 

CL/ AL 


POP 

AX 


C ALL 

omSetCntr 


MOV 

AL, CL 


OUT 

DX, AL 




Fag © 
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Fils: ROM 
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023F' ; 

8A 

C5 

MOV 

ALi CH 


Di 

o 

EE 


OUT 

D X , AL 


0242 ! 



omlnitEnd 



a-~ y * 

'U*C.„*T£L i 

C3 


RET 



0243 { 






0243! 






0243 ! 



} * * # * # * •* & & >3 #*•*■■* & ~X £ •* t* * #• # t *&&&&# X&&&# 

0243 ! 



1 



0243! 



; R0M_IQ_0 — 

i/o service routine -For i 

nterface identification 

0243 l 



a 



0243 1 




0243 : 



romloO 



0243; 



ifFIatCable $5 


0243 ! 

E8 


CALL 

setUpWh o 

/ get transporter network numb s 

024E ' 

38 

1C 00 

MOV 

AX<whoResuIt-omVec tors 


0251 ; 

E8 


CALL 

oiT.Se tCn tr 


0254 f 

BA 

4s 02 

MOV 

DX, omOata 


0257! 

L.C 


IN 

AL/ DX 


0258 : 






02581 

50 


PUSH 

AX 

;save result 

0259! 

50 


PUSH 

AX 


025A \ 

BS 

75 00 

MOV 

AX/ echoHcst—omVectors 

i put our host number in echo p- 

025D ! 

E8 

&&&& 

CALL. 

omSetCntr 


0260! 

BA 

43 02 

MOV 

DX/ omBata 


0263 ! 

58 


FGF 

AX 

;get back our host number 

0264 5 

EE 


OUT 

AL, DX 

/ put in xporter memory 

0265 ! 






0265 i 

E8 

#### 

CALL 

setUpEc ho 

;echo to our xporter number 

0268! 

38 

ID 00 

MOV 

AX/ echoResu!t-omVec tors 

; get result 

0263 ! 

E8 


CALL 

omSetCntr 


026E ! 

BA 

4B 02 

MOV 

DX/ omData 


0271 ! 

EC 


IN 

AL, DX 

i get it 

0272! 

3C 

CO 

CMP 

AL, OCOH 

;is somebody out there 

0274 i 

58 


POP 

AX 


0275! 


JN£ 

$10 

» no 

02771 



$s 



0277! 

30 

FF 

MOV 

AL/OFFH 

;mark as duplicate xporter 

0279i 



$10 



0279 ! 

2E 

SA 26 *3$ 

MOV 

AH/ CS: interface 


027E! 

86 

EO 

XCHG 

AH, AL 


0280 ! 

03 


RET 



0281 ! 






0281 ! 



r * ft###*######*###*###### : *'3 

028 i ; 



i 



0281 ! 



i R0M_I0_1 — 

interrupt service routine 

for general purpose 

0281 ! 



i 

xait/recv to drive 


0281 ! 






0281 i 




0281 ! 



ramioI 



0281 ! 



ifOmniNet $10 


0289! 

E9 


JMP 

f latlol 


0280 ! 



&1G 



028C ! 

ES 


CALL 

omPutData 

;transfer user data to xporter 

028F ! 



1 fUnd er5 $50 


0293 ; 
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029B I 
029E! 
02A1 ! 
02A3S 
Q2A3; 
02A6! 
02A9; 
02A9} 
02AC ' 
02AD ! 
02AF 
G2E1 5 
02B4! 
02B6! 
02B9! 
02B9 
02BC ! 
02BDI 

02be; 

02C1 ! 
02C3; 
C2C6 ! 
02C8! 
02C8! 
G2CE! 
02C E { 
02CF! 
02D1 ! 
02D3 < 
02D3I 
02D6J 
02E2S 
G2E5! 
02E8; 
02E8 I 
02EB ! 
02ED! 
02F0! 
02F2! 
02F2! 
G2F5! 
02F8 I 
02FA I 
02FD! 
02FF l 
02FF <* 
0302 ! 
0304«' 
0307; 
0309! 
030C I 
030C \ 
030F! 
030F t 
031 2' 
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E8 


CALL 

setupGo 

/ setup go receive -for long cod 

E8 


CALL 

setupSend 

/send first 4 bytes of long cod 

72*-* 

$23 

JC 

romlo1 err 

/cod never made it to server 

BS 16 00 


MOV 

AX/ goResul t-o.Wec 

tors 

E8 **** 

$24 

CALL 

omSetCntr 

/point to go rslt vecfc on xporter 

BA 49 02 


MOV 

DX# omHeader 


EC 


IN 

AL, DX 

/ get go__result transporter status 

AS SO 


TEST 

AL, SOH 


74*# 


*JZ 

$25 

z we are posted u/ith results 

E8 ***# 


CALL 

ch kTime 


"70 CTO 

/ or w 


JNC 

$24 

;have not timed out yet 

E8 **** 

$25 

JMP 

r oml a 1 err 

/abort ca 11 

BA 4B 02 


MOV 

DX# omData 

/ DX=r/w auto-increment port 

EC 


IN 

AL, DX 


EC 


IN 

AL, DX 

/get go__res_host 

3A 46 OD 


crip 

AL# (BP+server) 


7 4 * * 


JE 

$30 

/jump if correct server answers 

E8 **** 


CALL 

set Up 6o 

;else try again 

EBDB 

$30 

JMP 

*"*. 

V-Ct-W> 


B8 14 00 


MOV 

AX, goData-omVectors 

ES *# * * 


CALL 

omSe tCntr 

/GET 'Q ' OF GO 

EC 


IN 

AL, DX 


AS SO 


TEST 

AL,SOH 

/IS IT DISK SERVER RESTART 

75AE 


JNZ 

roflilo 1 

/YES RESTART 

E8 ###* 

$50 

CALL 

setUpRec eive 




ifUnderS $60 


E8 #*** 


CALL 

setUpRest 


E9 ##** 


JflP 

$70 


ES 

$60 

CALL. 

setUpSend 



$70 

JC 

romlolerr 

; xmi t never made it to server 

E8 #*** 


CALL 

otTiQe tRs 11 # 

wait for completion & get result vector 

72** 


JC 

romlolerr # 

abort call time out 

8 A 46 19 


MOV 

AL, <BP + xHost > 


3A 46 00 


CMP 

AL# (BP+server) 


74## 


JE 

$8 


E8 **** 


CALL 

setUpReceive 


EBEC 


JMP 

$70 


SB 46 1L 

$8 

MOV 

AX,{BP+xRetLen ) 

/length of msg receved from drive 

86 C4 


XCHG 

AL# AH 

/flip byte sex 

F6 C4 SO 


TEST 

AH# SOH 

/ check for disk server restart 

74## 


JZ 

$9 


E9 75FF 


JMP 

romlot 

/retry if yes 

ES *##* 

$9 

CALL 

oiaG&tData 


SB 4E 1C 


MOV 

CX,{BP+xRetLen} 

z save length for user in CX reg 

86 E9 


XCHG 

€H# CL 





i 


« 

I 

I 

f 

€ 

€ 

I 

I 

1 

I 

I 

r 

! 

f 

r 

c 

< 

t 

« 

f 


Fags 


0314 ! 
0314! 
0317! 
0318! 
031.81 
0318! 
031B ! 
031B! 
031B f 
031B ! 
031D! 
031E! 
031E! 
031 El 
031E! 
031E! 
031E! 
031E! 
031E! 
031E! 
0326 ! 
0329! 
032C ! 
032E! 
032E * 
0330! 
0331 ! 
0331 ! 
0333! 
0334! 
0334! 
0334! 
0334! 
0334! 
0334 ! 
0334 ! 
0334! 
0334 ! 
0334! 
033C ! 
0340! 
0343! 
0343! 
0346! 
0349! 
034B ! 
034B ! 
034E! 
0350! 
0353! 
0355! 
0356! 
0356! 
0358! 
035B ! 
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8A 46 IE 
C3 


E8 aaaa 


BO FF 
C3 


Fi 


aaa 


ROM for IBM/PC GMNINET/FLATCABLE INTERFACE 


aaa 


E8 aaaa 
ES aaaa 
73a a 

BO FF 
C3 

BO 00 
C3 


C6 46 OD FF 
E8 

ES MSB 
E8 aaaa 
73-a-a 

FE 4E OF 
75F3 
E8 aaaa 
BO FF 
C3 

32 CO 
8A 66 19 
€3 


MOV 

RET 

r o m I o 1 e r r 

CALL 

romIo2err 
T'oml o3err 
T’om.Io4srr 

MOV 

RE! 


AL, (BP+xRetCode > 


sstUpCancs1 


AL,OFFH 


;return code in AL 


;cancel setup socket 


;abort return code 


; aaaaaaaa-Haaaaaaaaaaaaaaaaaaaaxaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
/ 

; R0M_IG__2 -- interrupt service routine for general purpose 

i xmit data to server 

i •«# xaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

r oml o2 

ifFlatCable rom!o2Err 


f-10 


CALL 

CALL 

JNC 

MOV 

RET 

MOV 

RET 


amPutData 
setUpSrv 
$10 

AL,OFFH 


AL, O 


;copy users data to xporter 
; xsr.it cmd to server 
;a 11 is ok 

;set error return 


iset normal return 


; **»*****************#*******#**#******»*«#»*#»*•*■**#»##•#■*••**•*#***•**«••» 

t 

; R0M_I0_4 — interrupt service routine for finding a disk server 

; by broadcasting a cmd 

i a -a a -a a -a a a a a a a a a a -a -a a a a a -a a aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
romIo4 


$05 


$10 


ifFlatCable romlo4Err 

MOVBIM (BP+server>,brdCast 
CALL. setUpEr 

;broadcast the message 
;set up broadcast receive 

CALL 

CALL 

JNC 

setUpB 

om.GetRslt 

$10 

ixmit the broadcast message 
;wait for result 
;d i dnt time out 

DEC MB 
JNZ 

CALL 

MOV 

RET 

( BP+retry s 
$05 

setUpCance1 

AL, OFFH 

i try again? 
i yes 

}cancel socket 
;error, not found 

XOR 

MOV 

AL, AL 

AH, (BP+xHost) 

i good result 
;address of disk server 


RET 


t 
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035C ? 
035-C ! 
03 SC I 
G35C i 
035C ! 
035C ! 
035C ! 
0350 I 
G35C : 
0364 ! 
0367! 
036A! 
036D 1 
036F l 
036F! 
0372! 
0375! 
0375! 
0378! 
0379! 
0379 i 
0370 I 
037E ‘ 
037E ! 
03S.1 ,* 
0383 ,* 
0385 f 
0385! 
0389! 
03SB ! 
038B ! 
038E! 
0391 ! 
0394 ? 
0395! 
0398! 
039A! 
039A! 
039D! 
039F' 
039F! 
03A2! 


; ******************************************************************* 


/ R0M__IQ__3 — interrupt; service routine for general purpose 

; xmit/recv data to server 


; ***•**•***■****•********** if***-***************************************** 

romIo3 

ifFlatCable romIc3err 


E8 **** 


CALL 

omPutData 

/copy users data to xporter 

E8 **** 


CALL 

setUpRSrv 

/set up socket 

E8 **** 


CALL 

setUpSrv 

;xmit to server 

72** 

$05 

JC 

*20 

/error, abort 

B8 10 00 


MOV 

AX, srvRResu1t-omvectors 

/result vector add in xporter 

E8 **** 

$10 

CALL 

omSe tCn tr 


BA 49 02 


MOV 

DX, om Header 


EC 


IN 

AL, DX 


A9 80 00 


TEST 

AXt 80H 

/ is anything in yet? 

74** 


■JZ 

*20 

i yes 

E8 **** 


C ALL 

ch’* Time 

/ have we timed out 

72** 


■JC 

r oml o3e sc i t 

/ yes 

73F0 

$20 

JNC 

*10 

/wait some more 

80 7E OD FF 


CMPBIM 

(BP+server), brdCast 

/was this a broadcast message 

74** 


JE 

ramIo3end 

/ yes, result from any server i 

B8 11 00 


MOV 

AX. srvRHost-omvec tors 

/check who message is from 

E8 **** 


CALL 

omSetCntr 


BA 4B 02 


MOV 

DX, omData 


EC 


IN 

AL, DX 


3A 46 OD 


CMP 

AL, <BP + server) 

/was it from correct server? 

74** 


JE 

romIo3end 

/yes 

E8 **** 


CALL 

setUpRSrv 

/resetup socket 

EBDO 


JMP 

*05 

/and wait again 


rom!o3end 



E8 **** 


C ALL 

omGetData 

/copy data to user area 


03A2! 

B8 12 00 

MOV 

AX, srvRLen-omvectors 

/ get 1en of message 

03A 5! 

E8 **** 

CALL 

omSetCntr 


03A8! 

BA 4B 02 

MOV 

DX, omData 

/in CX 

03AB ! 

EC 

IN 

AL, DX 


03AC ! 

8A ES 

MOV 

CH, AL 


03AE ! 

EC 

IN 

AL, DX 


03AF ! 

8 A CS 

MOV 

CL, AL 


03E1 I 





03B1 ! 

m 

O 

O 

O 

MOV 

AL, 0 

/ set normal return 

03B3 ! 

C3 

RET 



03E4 I 


romIo3ex it 



03B4! 

ES **** 

CALL 

setUpScan 

;cancel socket 

0387 ! 

BO FF 

MOV 

AL, OFFH 

/set error return 
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03B9 1 

C3 

RET 



03BA; 





03EA l 


1 # # * & & # & % & & # *b # •&* # # # & * -Jf & # •$* # 3f 8 # # # # vf # # # & #&&&&&#&& & &&&&&# # & & # # # *> ~r 

OSSA i 


| 



03BA 1 


; FLAT_I0_1 — 

xmit/recv to drive via flat 

cable interface 

Q3BA1 





G3EA! 



03BA l 


flatlol 



03BA 1 

ES *t$- 

CALL 

gefcStopTime 

ithis is for time out 

03BD; 


*00 



03ED! 

BA EF 02 

MOV 

BX, flatStatus 


03C0! 

FA 

CL I 


idisAIlow interrupts 

03C 1 1 

EC 

IN 

AL, DX 

;g etStatus byte 

03C2 i 

AS 01 

TEST 

AL, flatReady 

; is drive ready 

03C4! 

74** 

JZ 

*02 

; y e s continue 

03C6, 1 

FB 

ST I 


;allow interrupts 

03C7! 

ES **** 

CALL 

ch !•< T ime 

;have we timed out 

03C A l 

73F1 

JNC 

*00 

;no wait again 

03CC 1 





03CC ! 

BO FF 

MOV 

AL,QFFH 

iset abort error—time out 

osce ; 

C3 

RET 


;and return 

03C F « 


*■02 



03CF ‘ 

SB 76 00 

MOV 

SI, (BP+sendBufAdd > 

;address of users buffer 

03D2 I 

SE 5E 04 

MOV 

DS, <BP+sendSeg) 

i segment of " " 

0305 ; 

SB 4E 08 

MOV 

CX, (BP+sendLen) 

;number of bytes to send 

OSDS! 

ES **** 

CALL 

*10 

>send the bytes 

030B ! 





03DB i 

80 7E OC 05 

CMPBIM 

(BP+cmd ), 5 

iis this a write command 

03DF l 

75** 

ONE 

flatTurn 

i no 

03E1 i 





03E1 ! 

SB 76 02 

MOV 

SI, (BP+recvBufAdd) 

;data portion of write cmd 

03E4 f 

8E 5E 06 

MOV 

DS, (BP+recvSeg) 


03E7 S 

8B 4E OA 

MOV 

CX, (BP+recvLen) 


03EA I 

ES **** 

CALL 

*05 


03EDI 

E9 **** 

JMP 

flatTurn 


O3F0! 





03F0 


i 



03F 0 


} s © n d “fc h 8 c o ns 

ntand to the drive 


03F0! 


; 



03F0 I 


*05 



03F0! 

EC 

IN 

AL, DX 

; status and sending byte 

03F1 l 

AS 01 

TEST 

AL, flatReady 

; so mux won't give up if we are 

03F3 I 

75FB 

JNZ 

*05 

; interrupted 

03F5! 


*10 



03F5 < 

AC 

LGDSB 


; AL=data byte 

03F6! 

4A 

DEC 

DX 

; DX~data port # 

03F7! 

EE 

OUT 

DX, AL 

; sent to drive 

03FS! 

FB 

ST I 


} enable interrupts 

03F9J 

42 

INC 

DX 

i DX=status port # 

03FA \ 

E2F4 

LOOP 

*05 

i loop til byte count=0 

03FC ! 

C3 

RET 



03FD t 


1 



03FD i 


; wait for interface to turn around drive 

—> host (avoid glitches) 

03FD i 


i 



03FD I 
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Fi 


aaa 


ROM -for IBM/PC OMNINET/FLATCABLE INTERFACE 


aaa 


03FD: 


r latTurn 



03FD! 

E8 a a* a* a* 


CALL 

getStopT ime 


0400' 

B9 OP' 00 


MOV 

C x i 15. 


0403! 


$10 




0403; 

49 


DEC 

cx 


0404; 

75FD 


JNZ 

$10 


0406 ! 


$15 




0406 ! 

ES aaaa 


CALL 

c h k T isre 

; have we timed out yet 

0409 { 

73aa 


JNC 

$17 

; no 

040J3 ! 






04GB ; 

BO FF 


MOV 

AL,OFFH 

vindicate timeout 

040D f 

03 


RET 



040E; 


$17 




040E 

BA EF 02 


MOV 

DX, f latStatus 


0411 : 

EC 


IN 

AL, DX 

;get status 

0412! 

AS 02 


TEST 

AL<flatBusDir 


0414 ' 

75F0 


JNZ 

$15 

;loop until 'drive to host 

0416! 

A8 01 


TEST 

AL, flatRead y 


0418! 

7 SEC 


JNZ 

$15 

icheck ready 

041 A! 

B9 OF 00 


MOV 

CX, 15. 

;delay to avoid glitches 

041D! 


$20 




041D! 

49 


DEC 

CX 


04 IE! 

75FD 


JNZ 

$20 


0420! 






0420! 

EC 


IN 

AL, DX 

;get status 

0421 ! 

AS 02 


TEST 

AL,PlatB usDir 

;is it drive to host 

0423! 

75E1 


JNZ 

$15 

ino wait 

0425! 

AS 01 


TEST 

AL, flatReady 

; is it ready 

0427! 

75DD 


JNZ 

$15 

i no 


0429! 
0429 ! 
0429: 
0429 ! 


load info about where user wants data 


0429! 

SB 

7E 02 

MOV 

DI, (BP+recvBufAdd> 


042C ! 

SE 

46 06 

MOV 

ES, (BP+recvSeg) 


042F! 

SB 

4E OA 

MOV 

CX, (SP+recvLen) 


0432! 

33 

DB 

XOR 

BX, BX 

i count of bytes received 

0434 ! 






0434! 

SO 

7E OC 05 

CMPBIM 

(BP+cmd ), 5 

;is this a write command 

0438! 

75aa 

JNE 

$30 

i no 

043A! 

33 

CS 

XOR 

CX, CX 

;no bytes back on write 

043C ! 






043C f 






0430 ! 



; command has 

been sent to the drive, 

now receive from drive 

043C ! 



i 



043C ! 



$30 



043C ! 

EC 


IN 

AL, DX 


043D! 

AS 

01 

TEST 

AL,flatReady 


043F! 

75FB 

JNZ 

$30 

i check ready 

0441 f 

EC 


IN 

AL, DX 


04431 

AS 

02 

TEST 

AL, flatBusDir 

i check direction 

0444! 

75aa 

JNZ 

$50 

;may be done if bus turned 

0446! 

4A 


DEC 

DX 

i DX=data port # 

0447! 

EC 


IN 

AL, DX 


0448! 

42 


INC 

DX 

; DX=status port # 


< 
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0449 «' 

OB 

DB 



OR 

8X, EX 

; is this 1st byte? 

04413 ! 

T c \** 



JNZ 

$32 

/ no 

044D i 

88 

46 

IF 


MOV 

<BP+xRstCode ) , AL 

/ save return code 

0450 1 

7 4*-st- 



JZ 

$35 

/ always 

0452! 




± oo 

£, 




0452 ! 

E3** 



JCXZ 

$35 

i user doesnt want anythin 

0454 ! 

AA 




STQSB 


;save byte 

0455! 

49 




DEC 

CX 

/users byte count 

0456! 




$35 




0456! 

43 




INC 

BX 

;byte count 

0457! 

EBE3 



JMP 

$30 

; loop til done 

0459! 




f 




0459! 




i chec 

k for transfer completion 


0459! 








0459! 

EC 



$50 

IN 

AL, DX 


04SA ! 

A8 

01 



TEST 

AL,f iatRead y 

; check for drive ready 

045C ! 

75DE 



JNZ 

$30 


04 5E! 

A8 

02 



TEST 

AL/ f latSusDir 

; check direction 

0460! 

74DA 



JZ 

$30 

/continue if still ''drive 

0462 * 








0462 i 








0462 ! 




; a 11 

done put byte count in CX return 

code put in AL 

0462 ! 








0462! 

SB 

C B 



MOV 

CX , BX 


0464! 

8 A 

46 

IE 


MOV 

AL, ( BP+xRetCode ) 


0467! 

C3 




RET 



0468 ! 








0468! 




; ***********3***** * ***** 4********************************************** 

0468 ! 




/ OMPUTDATA 



0468! 




i 

routine 

to transfer data from 

host mem to sporter buffer 

0468 ! 




; ********************************************************************* 

0468 ! 




omPutData 



0468! 

SB 

4E 

OS 


MOV 

CX,(BP+sendLen ) 

/bytes to send to drive 

046B ! 

B8 

95 

00 


MOV 

AX/sendBuf-omVec tors 


046E! 

ES 

**** 


CALL 

omSetCntr 


0471 ! 








0471 ! 

8 B 

76 

00 


MOV 

SI/ ( BP+sendBuf A) 

/ address of user data 

0474! 

SE 

5E 

04 


MOV 

DS; { BP+sendSeg ) 


0477 ! 








0477 ! 

BA 

48 

02 


MOV 

DX/ ooOata 

/ read/write xportsr port 

047A ! 




$20 




047A I 

AC 




L0DS8 



047B ! 

EE 




OUT 

AL, DX 


047C ! 

E2FC 



LOOP 

$20 


047E ! 








047E ! 

80 

7E 

OC 05 


CMP3IM 

< SP+cmd), 5 

/is this wr i te cmd 

0482! 

75** 



JNE 

$40 


0484! 








0484! 

SB 

76 

02 


MOV 

SI, <BP+recvBuf A ) 

/address of data for write 

0487! 

8E 

5E 

06 


MOV 

DS,(BP+recvSeg) 


048A! 

SB 

4E 

OA 


MOV 

CX,(BP+recvLen) 

/ length of data portion of writs 

048D! 




$30 




048D! 

AC 




LODSB 



048E! 

EE 




OUT 

AL, DX 


048F ! 

E2FC 



LOOP 

$30 



more 


to ho 



4 
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0491 ? 




$40 



0491 1 

BB 

OB 00 



MOV 

AX< sHdrTcLen-omVectors ; f i x up length in cmd vectors 

0494 ! 

SB 

4E 08 



MOV 

CX, (BP+sendLen) 

0497 ! 

80 

7E OC 

05 


CMPBIM 

(BP+cmd>/5 ; is this write cmd 

049B l 

75** 



JNE 

$45 ;no 

0490! 

03 

4b, OA 



ADD 

CX/ <BP+recvLen) /add in data length 

Q4AQ! 




$45 



04A0! 

E8 




CALL 

$50 

04A3 ! 







04A3 S 

B8 

O 

O 

LU 

ID 



MOV 

A,XL srvCiT.dLen-omVec tors 

04A6 « 

E8 




CALL 

$50 

04A9 ; 







04A9 i 

B3 

52 00 



MOV 

A XL r estLen-omVec tors 

04AC ; 

83 

E9 04 



SUB 

C XL 4 

04AF ‘ 




$50 



04AF ! 

E8 

#### 



CALL 

omSetCntr ; set xporter address 

04E2! 

8 A 

C5 



MOV 

AL/CH ;most sig byte 

Q4B4I 

PC' 




OUT 

AL, DX 

04B5 «' 

8A 

Cl 



MOV 

rtL i C L 

04B7! 

EE 




OU! 

AL,- DX 

04B8! 

Lr ‘Si 




RET 


04B9: 







04B9 I 







0489 { 







0409? 




j. # # # # # # # # # # # # # #• «*> •&* » # ■ # -M* * # # # * ■# # •&# *■ # * -If # ■-B* ■■* 4?* •& 3* # # # * # # # # # # *$■ # 

04S9 ! 




. QMGETDATA 


0489! 




} 

rout ine 

to move data from transporter buffer to host mem 

o 

m 

43 





04B9 ! 




omGetData 


04B9 l 

80 

7E OC 

05 


CMPBIM 

(BP+cmd) /5 » is this write command 

040D I 

74#^ 



JE 

$10 ;yes dont send any bytes back 

04BF! 







04BF? 

B8 

95 00 



MOV 

AX/recvBuf-omVectors ; addr of transporter buffer 

04C2 t 

E8 




CALL 

cmSetCntr 

0405! 

BA 

4B 02 



MOV 

DX/omData ;DX=data port # 

0408 1 







0408! 

SB 

7E 02 



MOV 

Dli (BP+recvBufA ) /address of user buffer 

040 B ! 

8E 

46 06 



MOV 

ES/ ( BP+r ecvSeg ) 

04CE ! 







04CE ! 

SB 

4E OA 



MOV 

CX/ { BP+recvLen) 

04D1 ! 

OB 

C9 



OR 

CX/CX ;does user want anything? 

04D3 « 

74** 



JZ 

$10 ; n o/ exit 

04D5! 







04 D 5 1 

EC 



$5 

IN 

AL/ DX 

04D6! 

AA 




STOSB 


04D7' 

E2FC 



LOOP 

$5 

04D9 i 

C 3 



% 10 

RET 


04DA I 







04DA 1 







04DA ' 





04DA ■ 




i OMSETCNTR 


04DA! 




f 

v out i ne 

to set the buffer pointer counter on transporter board 

04DA <’ 




£ 



04DA t 




i input 



04DA f 




} 

AX - neu.* counter value 


f 

€ 

f 

C 

I 

4 

€ 

« 

I 

« 

I 

€ 

f 

f 

I 

f 

< 

< 

€ 

i 


i 




< 


f 


IBMROM 


OMNI HE T/FLATCABLE INTERFACE 


t 


f 

04DA! 





f 


04BA ! 








04DA 1 



omSetCntr 




i 

04DA! 

52 


PUSH 

DX 


f 


04DB l 








04DB ! 

BA 

4A 02 

MOV 

DX» omLoCntr 

;DX=port # to set low byte of cntr 


§ 

04DE! 

EE 


OUT 

D X, AL 


« 


04DF ; 







04DF: 

BA 

48 02 

MOV 

DX» omHiCntr 



1 

Q4E2 I 

SA 

C 4 

MOV 

AL i AH 


€ 

it. 

04E4; 

EE 


OU) 

DX, AL 

;set hi byte 



04E5 { 







f 

04E5 1 

5A 


POP 

DX 


i 


04E6 ! 

C3 


RET 



W: 


04E7 I 







€ 

04E7 « 




f 


04E7 5 



i 





04E7 ! 



; FIXJ3ERVER 

_ADD -~ puts address 

of server cmd vector 


f 

04E7 ! 



/ 



« 

I. 

04E7 ! 




M. 


04E7! 



fix ServerAdd 





04E7I 

SB 

46 13 

MOV 

AX, (BP-*-emdAddr ) 

, xporter address of cmd vector 

f 


04EA: 

05 

OB 00 

ADD 

AX, 11, 

i offset for server address 

m 


04ED ! 

E8 

EAFF 

CALL 

oflsSe tCntr 



-f ■ 

04F0 f 

BA 

4B 02 

MOV 

DX, omData 


f 

»■ 

04F3 ! 

8 A 

46 OB 

MOV 

AL;(BP+server) 


m 


04F6 ! 

EE 


OUT 

AL, DX 

,put disk server add in cmd 


€ 

04F7 ? 

03 


RET 



f 

m- 1 

04FS; 






m 


04FS! 





-r 

04FS ! 



;• OMSETUP 



f 

■I- 

04F8! 



i V Q U t 

ine to setup cmd vec 

tors in transporter buffer 



04F8; 



i 




I 

04F8 I 



i i n p u t 



f 

I 

04F8! 



i cmd 

vector strobe addr is stored in CMD_ADDR 



04F8 f 





C" 

04FS ! 



omSe tUp 



€ 

m. 

04F8J 

SA 

46 OF 

MOV 

AL;(BP+retrys> 




04FB ! 

32 

E4 

XOR 

AH, AH 



I 

04FD1 

50 


PUSH 

AX 

i save retrys on stack 

€ 

m 

04FE! 



omSetUp1 




04FE1 

BA 

4B 02 

MOV 

DX, omData 



€ 

0501 S 

SB 

46 13 

MOV 

AX, (BP + cmdAddr) 

,get strobe ad dr 

tf- 

Mi. 

0504 ! 

50 


PUSH 

A X 

i save it 



0505! 

E8 

D2FF 

CALL 

OtrSe tCntr 

i address of transporter cmd 


€ 

0508! 

EC 


IN 

AL, DX 

i get transporter cmd byte 

f 

• 

0509! 

88 

46 12 

MOV 

CBP+cmdByte), AL 

; save it in variable 


0500 ! 

58 


POP 

AX- 

;restore cmd vector address 


f 

050D! 






f 

m. 

050D! 

40 


INC 

AX 




050E ! 

40 


INC 

AX 

: AX=pointer to result vector addr 


€ 

050F! 

A 1 •‘"l * 

E8 

C8FF 

CALL 

omSetCntr 

i set xporter counter 

< 


U J? l CL * 

0512 ( 

EC 


IN 

AL, DX 



« 

05131 

8 A 

EO 

MOV 

AH, AL 

; hi byte of result vect addr 

• 


f 


f 
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0515 ? 

EC 



IN 

AL, DX 


05161 

89 46 

15 


MOV 

{ BP+rsItAd ur 

) ,* AX i save i t 

0519? 

ES 8EFF 


CALL 

omSetCntr 

/set xporter counter to resit vect 

051C 1 

BO FF 



MOV 

AL, OFFH 

/initialize return code 

05IE I 







05 IE 1 

BA 4B 

02 


MOV 

DX/ am Data 

/data output port # 

0521 * 

EE 



OUT 

DX, AL 


0522 1 







05221 

EB **** 


CALL. 

omniStrob e 

; send command vector to transporter 

0525 I' 







0525 l 

SB 46 

15 


MOV 

AX, (SP+rsltA 

ddr) /addr of result vect 

0528 1 

E8 AFFF 


CALL 

QiT.Se tCn tr 

i set xporter counter 

052B 1 

BA 49 

02 


NOV 

DX/ omHead er 

;data input without auto-inc 

052E 1 







052E1 

EC 



m in 

AL# DX 


052F 1 

3C FF 



CMP 

AL# OFFH 

;inspect transputer status return code 

0531 1 

74FB 



JE 

40 

/loop waiting if not changed 

0533 1 







0533 1 

EC 



IN 

AL # D X 

/ported memory problems *—* must do 2nd re 

0534! 

84 4<6 

17 


TETOT 
i ELC# i 

AL, CBP+mask) 

#is correct bit cleared 

0537 i 

74**' 



JZ 

omSe tUp Ok 

/everything OK, exit 

0539 1 







0539 ! 

80 7E 

12 

40 

CMPBIM 

(BP+cmdSy te ) 

, xmitCmd 

053D1 

75** 



ONE 

f 10 

; error exit 

053F ! 

80 7E 

OF 

FF 

CMPBIM 

{ BP+retr ys ># 

OFFH /is this continious retrys'? 

0543 ! 

74B9 



JE 

omSetUp 1 

/ yes 

0545! 

F£ 4E 

OF 


DEC MB 

( BP+retr ys > 

; any more retrys 

0548 

7 SB 4 



JNZ 

omSetUp1 

/ yes 

054A ! 




$10 



054A ! 

p'9 



SIC 


/set error flag 

OS4B ! 

72** 



JC 

omSe tUp Ex i fc 

/ forced branch 

054D I 




offlSetUpOk 



054D ! 

SO 7E 

12 

40 

CMPBXM 

( SP+cmdBy te) 

, x m i t C m d 

0551 i 

7 5** 



JNE 

410 


0553 ! 

80 7E 

OD 

FF* 

CMPBIM 

< BP+server ), 

brdcast 

0557 ! 

75** 



JNE 

$10 

/retry count for broadcast is successful! 

0558! 

80 7E 

DC 

02 

CMPBIM 

<3P+cmd >, 2 

/ is this a transmit only command 

055D! 

75** 



*k (tr- 
w< hC. 

$10 


055F 1 

FE 4E 

OF 


DEC MB 

(BP+retry s > 

/are there any more retrys left'? 

0562 1 

759A 



JNZ 

omSetUp1 

/yes do it again 

0564 ! 




4-10 



0564! 

F8 



CLC 


; carry is error flag 

0565! 




omSetUpExit 



0565! 

58 



pop 

AX 


0566! 

88 46 

OF 


MOV 

<BP+retrys ) , 

AL / restore retry count 

0569 ! 

C3 



RET 



056A! 







056 A ‘ 




; •«■#*#■$*#■*#*■»•■»•■*# S 

****************************************************** 

056A * 




} 



056A I 




i OMNI STROBE — 

strobe transported with add of cmd vector 

056A! 




# 



056A! 




# ******************************************************************** 

056A I 




omniStrobe 



056A f 

32 E4 



XQR 

AH# AH 


056C ! 

ES *** 



C ALL 

$10 

/ first msb is 0 




* 
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056F! 8A 66 i4 
0572! E8 **•**■ 
05751 8A 66 13 
05781 E8 **** 
057E ! 

057BS £9 


0575 I 
0578 1 
0578 ! 
057B 1 
057E 1 
057E { 
057E 1 
0581 1 
0582! 
0584! 
0506 1 
0586! 
0589! 
058B i 
058C 5 
058D' 
058D 1 
0580 1 
058D< 
058D! 
058D! 
05SD ! 
058D f 
058D! 
05SF! 
0591 
0594 * 
0596! 
0588! 
059A! 
059A 5 
059C ! 
059F« 
OSAO! 
OSAO! 
OSAO! 
OSAO! 
OSAO! 
OSAO! 
OSAO! 
OSAO! 
05A3! 
05A8! 
05AC ! 
OSAF! 
05AF! 
OSAF! 
05AF! 
OSAF 5 
OSAF! 
OSAF! 
OSAF ! 
05134! 


BA 48 02 
EC 

AS 80 
74FB 

BA 49 02 
SA C4 
EE 


CD 1A 
8A 46 OE 
32 £4 
B1 04 
D3 EO 

03 DO 
89 56 1Q 


ES **■»# 

C7 46 13 33 00 
C6 46 17 01 
E9 49FF 


AH.. (BP+emdAddr+1> ; next msb 
$■10 

AH, CBP+cmdAddr ) /fail thru 
*10 


gstStopT ime 


DX» omStatu-s 
AL, DX 
AL,80H 


DX, o.T.n iPort 
AL, AH 
D X / AL. 


icalc time out time 


itransporter status port # 

; is transporter ready 
;loop til transporter ready 

istrobe port # 

;get output byte to AL 
isend the command byte 


i QET_ST0P_TIf1E calculates time out time from user params 

1 *•*■»•#»*•»•* *****•*■**•« •* *********** **#**»******4Ht'***##***»***iHHt'***# 

gstStopTims 

XGR AH/AH ;read time of day clock 


AH.. AH 
1 AH 

AL/ (BP+uaitTiroe) 
AH/ AH 
CL/ 4 
AX/ CL 


;read time of day clock 
i lou; count is in DX 


i multiply by 16 


ADD DX, AX 

MOV CBP+stop Time>,DX ; time to give up at 

RET 

i *•**•»■*###**#***«•********■»******#**** 

I 

SET __UP _R EC EI V£ 

; ##****•*##*#*##*#*#*#»#***##■****••»•*#**##•»■*■»• 

setUpReceive 

CALL setUpCancel 

MOV (BP+cmd Addr ),rCmd-omVec tor s 

MOVBIM (BP+mas k >, 01H ;■ usa i t for lsb to clear 

JMP omSetup 

i 

; SETJJPjSEtW 

t 

; ***##*»#•*•#•*#***##*■*•*■*#•*•*•»•* *#*■****#■*###*•**■*■*■*•#####•#**•***■•»■#»•*•#■*•*** 
setUpSend 

MOV (BP+cmdAddr),sCmd-omVec tors 

MOVBIM (BP+mask>, SON ;wai t for msb to clear 


C7 46 13 3£ 
C6 48 17 80 


« 



IBMROM 


Fils: 
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05B8! 

E8 

2CFF 



CALL 

FixServerAdd /put server add in cmd vector 

OSBB S 

E9 

3AFF 



JMP 

omSetup 

GSBE! 







05BE ! 







GSBE! 






05BE« 







OSBE! 





/ SET UP GO 


05BE J 





I 


Q5EE! 






osbe: 





se tUpGo 


Q5EE: 

ES 




CALL 

setUpCance1 

osci : 

C7 

46 13 

IE 

00 

MOV 

(BP+cmdAd dr), goCmd-omVec tors 

05C6! 

C6 

46 17 

01 


MOVE IN 

(BP+mas k ) < 01H ;uiait for Isb to clear 

05CA! 

E9 

2BFF 



JMP 

omSetup 

05CD! 







05CD I 







OSCD! 






OSCD! 





s 


OSC D l 





i SET UP REST 


05CD! 





i 


OSCD * 






03CD i 





setupRest 


GSCD! 

C7 

46 13 

4 A 

00 

MOV 

(3P+cmdAddr >, restCmd-omVec tors 

05B2I 

C6 

46 17 

BO 


M0V3IM 

(SP+mas k ), 8Qr! < wait For msb to clear 

05D6! 

ES 

GEFF 



CALL 

fixServerAdd > put server add in cmd vector 

0509! 

E9 

1CFF 



JMP 

omSetUp 

OSDC S 







G5DC ! 







OSDC : 






OSDC! 





f 


OSDC ! 





; SET UP SRV 


OSDC ! 





/ 


OSDC ! 





; &#&&&&&&&##-&#& 

44444444444 X 44444444444444444444444444444444444444 

OSDC ! 





setUpSrv 


OSDC 1 

C7 

46 13 

56 

00 

MOV 

(BP+cmdAddr ), srvCmd-omVectors 

05E1 1 

C6 

46 17 

SO 


MOVE IM 

(BP+mas k > * SON ; Ufa i t For msb to clear 

OSES! 

ES 

FFFE 



CALL 

fixServerAdd ; put server add in cmd vector 

OSES! 

E9 

ODFF 



JMP 

omSetUp 

OSEB ! 







OSEB! 





} **#######4*###########3*#£•»####&«####**##*##*####&####*«*##*#*## 

OSEB 5 





i 


OSEB! 





; SET UP R SRV 


OSEB i 





f 


OSEB ! 






OSEB ! 





sb tUpRSrv 


OSEB ! 

ES 

#### 



CALL 

setUpSCancel 

OSEE! 

C7 

46 13 

62 

00 

MOV 

(SP+cmdAddr ), srvRCmd-omVectors 

05F3 J 

C6 

46 17 

01 


MOVBIM 

CBP+mask 01H ;uiait for Isb to clear 

0SF7! 

E9 

FEFE 



JMP 

omSetUp 

OSFA! 







05FA! 





; 4444 ^ 44 ## 4444 ## 44 $ 4 # 4 # 44 # 44 # 4444444 ### 44444444444444444444444$*44 

OSFA I 





t 


OSFA! 





; SET UP CAN 


OSFA! 





i 


OSFA! 





\ 44444444444444444444 44444444444444444444444444444444444444444444 





€ 
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i 


05FA 1 






■setUp Can 


05FA! 

C 7 

46 

13 

29 

00 

MOV 

(BP+cmdAddr ), canRecvCmd-omVet tors 

G5FF 1 

C6 

46 

17 

80 


MOVB I ii 

(EP+mas k ). SOH ;u/ait for msb to clear 

0603! 

E9 

F2FE 



JMP 

otf>Se tUp 

0606 l 








06061 






t &&&&#& & # * # # & #-**£** # & * * #•$? -a s 

06061 
0606 1 






} 

; SET UP S CAN 


06061 
0606 1 






f 


0606 1 






sstUpSCan 


0606 i 

C7 

46 

13 

OF 

W 

00 

MOV 

(BP+cmdAddr ), canSrvCmd-omVectors 

060B t 

€6 

46 

17 

SO 


MOVBIM 

(BP+mas k ) j 80H iujait for msb to clear 

060F1 

E9 

E6FE 



JMP 

omSetUp 

06121 








06121 







06121 






; 


06121 






; SET UP WHO 


06121 






f 


06121 







06121 






setUpWho 


06121 

€7 

46 

13 

60 

oo 

MOV 

C BP+cmdAddr ), wh oCmd-omVec tors 

06171 

G6 

46 

17 

so 


MOVBIM 

(BP+mask ), 8CH 

061B 1 

E9 

DAFE 



JMP 

omSetUp 

061 El 
06 IE 1 








061 El 







061E 1 






/ 


06 IE 1 






; SE W UP ECHO 


061E 1 






i 


061 El 







061E 1 






setUpEcho 


061 El 

€7 

46 

13 

71 

00 

MOV 

(BP+cmdAddr) / echoCmd-omVec tors 

0623 1 

C6 

46 

17 

01 


MOVBIM 

(BP+mask > , 01H ;uiait for lsb to clear 

06271 

E9 

CEFE 



■JMP 

omSetUp 

062A 1 
062A 1 








062A1 







062A1 
062A1 
062A 1 






; SET_UPJS 


062A 1 







062A1 






setUpB 


062A 1 

€7 

46 

13 

7E 

00 

MOV 

< BP+cmdAddr) > bCmd-omVec tors 

062F1 

C6 

46 

17 

SO 


MOVBIM 

C BP+mask} #SOH 

0633 1 

E9 

C2FE 



JMP 

o^SetUp 

0636 1 
06361 








0636 1 







0636 1 
06361 
0636 1 






; SET_UP_BR 

a 


06361 







0636 1 






setUpBr 


0636 1 

E8 

C IFF 



CAI L 

setUpCance1 


c 

€ 

f 

I 

f 

< 

€ 

I 

« 

€ 

< 

€ 

tf 

i 

I 

€ 

C 

i 

« 


f 
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0639 l 

€7 

4*6 13 3 A 00 

MOV 

< BP+cmdAd dr )* b rCmd-oor.Vec tors 

063E S 

€6 

46 1,7 01 

MOVE IM 

< BP+roas k ) # 01H /uiait for Isb to clear 

0642 J 

E9 

B3FE 

•JMP 

omSe tUp 

0645 ! 





0645 ! 



i *************** 

*** ***** .* ** * *****##*#**#*###*#*#*##* ************** 

0645! 



i 


0645! 



; OM_GET_RESULT 

— u/aits for disk server to finish/ copys 1st 

0645! 




seven bytes to ram 

0645! 



i 


0645! 



s ***#*##***#*####***********#*******##*#*##**##**#*#***#*#*****## 

0645! 



omGetRs1t 


0645! 

B8 

00 00 

MOV 

AX,rResult-omVec tors 

0648! 

ES 

BFFE 

CALL 

omSetCntr 

064B S 





064B «' 

BA 

49 02 

$10 MOV 

DX,omHeader 

064E! 

EC 


IN 

AL,DX i check for operation complete 

064F! 

AO 

SO 

TEST 

AL, 80H 

0651 ! 

74*# 

JZ 

$15 

0653! 

ES 

***# 

CALL 

chkTime ; have we timed out yet? 

0656! 

73F3 

JNC 

$10 ; no 

0658! 

C3 


RET 

i return u/ith error flag 

0659! 



$ 15 


0659! 

w*wT 

F6 

XOR 

SI, SI 

065B ! 





065B ! 

B9 

07 00 

MOV 

OX, 7 

065E! 

BA 

4B 02 

MOV 

DX, omData 

0661 i 

EC 


$20 IN 

AL, DX 

0662! 

89 

42 18 

MOV 

(SI )CBP+xResult), AX 

0665! 

46 



SI 

0666! 

E2F9 

LOOP 

$20 

0668 ‘ 

F8 


CLC 

;return with no errors 

0669 : 

/** o 

V* •„ J 


RET 


066A! 



; ******************** **#**#*#******##*#***#*###***##*##*#**#**#*#*## 

066A ! 



; 


066A ! 



;CHK TIME — checks the timer to see if it is time to abort 

066A! 



i 


066A! 




*#*•#•**•**• 5 ■*•** a##########*-*#-*##*-*####*,*#*'*#--*##**-*#-*#'*#* 

066A I 



chfcTime 


066A! 

80 

7E OE 00 

CMPBIN 

{BP+waitTime), 0 ;0 — do not time out 

066E! 

74-s*-* 

JE 

chkTimeQk ;dont test if 0 

0670! 





0670! 

B4 

00 

MOV 

AH,0 ;time of day call 

0672! 

CD 

1A 

I NT 

1 AH 

0674! 

0A 

CO 

OR 

AL, AL i has clock wrapped around to 

0676! 

74*# 

JZ 

$10 i no 

0678! 



f 


0678 ! 



i doc k 

has passed 24 hours — to make life simple stop time 

0678! 



i 

re-calculated 

0678 ! 



i 


0678! 

8A 

46 OE 

MOV 

AL, (BP+wai tTime > 

067B ! 

32 

E4 

XOR 

AH, AH 

067D ! 

B1 

04 

MOV 

CL, 4 ;multiply by 16 

067F! 

D3 

EO 

SHL 

AX, CL 

0681 ! 





0681 ! 

03 

DO 

ADD 

DX, AX 
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0683 i 

89 

56 10 

MOV 

<8P+stop Time> >DX 

itime to give up at 

0686 i 

E9 


JMP 

c ft kTimeOk 


0689! 



* i u 



0689 I 

3E 

56 10 

CMP 

DX.- < BP + stop Time > 

; is it time to abort 

068C l 

72## 

J B 

c ft k T imsOk 

; no 

068E i 






06SE! 

F9 


STC 


;set abort flag 

068F i 

C3 


RET 



0690 { 



eft kT imeOfc 



0690 * 

F8 


CL.C 


; not timed out flag 

0691 ! 

C3 


RET 



0692! 






0692 \ 



; ******************* % ** *##*X#*################################### 

0692 { 






0692 1 



; HELLO 



0692! 



# 



0692! 



; *#**#*##***##***###*£* * *##•*#########■############################ 

0692! 



fl 3 1 1 0 



0692! 

32 

£4 

XOR 

AH, AH 

;video I/O ca11 

0694 ! 

BO 

02 

MOV 

AL i 2 

;80x25 black and white mode 

0696 i 

CD 

10 

I NT 

10H 


0698 * 

BE 

ocoo 

LEA 

SI, ft 5 11 ohsg 


069B l 

£9 


JMP 

printStr 

;print hello message and return 

069E 






069E! 



} * # # # * # * # * # * # * # # * * # # * * * * ;* * * # # # # ■# * # # * #-# # # # # # # # # # ## * # # # # # # # # # # # # # # # 

069E t 



j 



069E I 



; LOAD_E'OOT — 

loads the IBM eonstellation II boot program into 

069E l 



i 

ram and transfers 

control to it 

069E! 



f 



069E' 



} * # # # * # # # # #* # # 

######### ;$######################################### 

069E! 



1 oadSoot 



069E! 

CD 

12 

I NT 

12H 

;memory size check 

06A0! 

3D 

40 00 

CUP 

A X ! 4uH 

; is there at least 64k 

06A3 t 

73** 

JN3 

*05 


06A 5 l 

E9 

#### 

JMP 

need64err 

; no 

06A8! 



$05 



06AS! 

BB 

00 00 

MOV 

EX, 0 


06AB 1 

SE 

DB 

MOV 

DS, SX 


06AD ‘ 

8E 

C3 

MOV 

ES, BX 


06AF I 






06AF ! 

FA 


CLI 


idisabls while fixing stack 

06B0I 

8E 

D3 

MOV 

SS, BX 

; make sure stack doesnt clobber us 

06B2! 

BC 

FE FF 

MOV 

SP,stac kAdd 


06B5 ! 

FB 


STI 


i enable interrupts 

06B6! 






06B6 ! 

E8 

D9FF 

CALL 

hello 

; he 11o msg 

06B9! 






06B9! 



ifFlatCable loadBtstart 

; go directly to disk 

06C 1 I 






060 1 l 

B4 

00 

MOV 

AH, 0 

i identify entry point 

06C3! 

9 A 

0600 00DF 

CALLL 

ioEntry , rcmSeg 

; ROM I/O entry point 

06C8! 





; AH^uiorkstation number 

06C8! 

so 

FC FF 

CMP 

AH, OFFH 

: is there a duplicate xporter out there 

06C B ! 

75## 

JNE 

$10 


06CD! 

E9 

#### 

JMP 

xportErr 





i 

€ 

€■ 

f 

€ 

I 

f 

f 

f 

I 

r 

f 

■r 

i: 

I! 

f 

c 

€ 

< 

< 

I 

f 


D 


age 


06DQ! 
06 DO I 
06D2: 
06B4 ! 
Q6D6 i 
06D6i 
06DB ! 
06 DD l 
06DF! 
06E2 l 
06E2 ! 
06E2 ! 
06E2 ! 
06E2! 
06E4 ! 
06ES! 
06ED i 
06F2« 
06F7! 
06F7 ! 
06FD I 
06FDE 
0700 I 
0703 «* 
0706 I 
0706 E 
070A > 
070D ' 
07OD ‘ 
0711, < 
0711 I 
0713 E 
0715 i 
0715! 
0717! 
071C ! 
071E! 
0720! 
0720! 
0723! 
0729 j 
072B « 
072B ! 
072F ! 
0731 J 
0733! 
0736! 
0733! 
073A! 
073A! 
073E i 
073E! 
0742! 
0744! 
0743 t 


!1 IBMROM 


B4 04 
B3 OS 
B7 02 

9A 0600 OODF 

30 00 

74** 

E9 **** 


F i I & : 


*** 


ROM -For I8M/PC QMNI ME T /FLAT CABLE INTERFACE 


*** 


33 D8 

38 A7 0070 
06 37 0170 44 


06 37 
06 37 


0270 09 
0370 00 


37 0470 00 70 


8B 00 00 
BE 01 70 
B9 03 00 

SB BF 041 
BA 00 02 


3A 87 0070 

B3 OS 
B7 02 

84 01 

9A 0600 OODF 

30 00 

75** 

BB 00 00 

81 BF 0470 00 70 

SB 87 0070 
SB 08 
DO ED 
25 FF 01 
74** 

FE 05 

38 AF 0070 

FE 8F 0070 
74** 

FE 87 0370 
81 87 0470 00 02 


$10 


NOV AH/ 4 

MOV SL,8 

MOV BH, 2 

CALLL ioEntry, rcmSeg 
CMP AL, 0 

■JE ioadBtstar t 

•JMP noSrvErr 

we have Pound a disk server - 


; f ind disk server request 
;wait 6.88 seconds 
;send message twice 

/find any disk server 
;did we find a disk server 
; yes 

}no time to give up 
now we must read in the boot program 


I, o a d B15 tar t 
XOR 
MOV 

MOVS IM 
MOVBIM 
MOVBIM 


IoadBtOl 


MOV 

j 

MOV 

MOV 


$05 

$10 


SHR 

AND 

JZ 

INC 

MOV 

DEC MB 
JZ 

I NO MB 
ADD 


BX, BX 

(BX+bootServer ) / AH 


i save server 


(BX+b ootSourc e+bootCmd ), 044H 
<BX+bootSource+bootType),ibmTyps 
(BX+b ootSource+boctBloc k >0 

(BX+IoadAddReg)» loadAdd 

BX, O 

SI / boot-source 


;const II read boot block 
.computer type 
;start with block zero 

;start loading here 


MOV 

CX, 3 

,send 3 bytes 

MOV 

MOV 

DI : (BX+loadAddReg) 

DXj 512. 

jread one block 

> 

D 

r 

AL,(BX+bootServer) 

/disk server address 

MOV 

MOV 

BLi 8 

BH/ 2 

iwait for disk server 6.88 seconds 
idisk server is there Cretrys) 

MOV 

CALLL 

CMP 

ONE 

AH, 1 

ioEntry,romSeg 

AL, 0 

loadStErr 

,send drive cmd 
;read one block 
;was read ok? 

,no, we have a problem 

MOV 

CMP 

JNE 

BX, 0 

CBX+loadAddReg), loadAdd 
$10 

; is this the first read? 

i no 

MOV 

MOV 

AX, <3X+loadAdd) 

CX, AX 

,get 1st word of 1st block 
,save it 


OH, 1 
AX, 1FFH 
$05 
OH 

CSX+IoadAdd), OH 

{SX+1oadAdd) 

1 oadBtEnd 


;CH = number of blocks 
,is length multiple of 512 
; yes 

;add 1 to block count 

/store number of blocks in first byte 

;decrement block count 
ia 11 done 


< BX+bootSourc e+b ootBlock) 

CBX+loadAddReg),200H ;add to load address 


I 

f 
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Page - 

- 32 IBMRGM 

File: 

*** ROM 

for IBM/PC OMNINET/FLATCABLE INTERFACE *** 

074E! 






0746: s 

EBAD 


JMP 

1oadBtOl 

; read in next block 

0750 1 



1aadStend 



0750! 

8A 87 0070 


MOV 

AL, (BX+bootServer) 

;jump into code with 

0754 1 





i in AL 

0754 ! 

EA 027C 0000 


on pL. 

IoadAdd+2,0 

;jmp into code 

0759 i 



xp ortErr 



0759! 

BE 8000 


LEA 

SI,d up Xp or terMsg 


075C i 

6.9 *3 # 


JHP 

p v intMsg 


075F! 



loadBtErr 



075F I 

BE 7000 


LEA 

SIi b oetflsg 

$ error message 

0762 i 

E9 


JMP 

printMsg 


0765! 



noSrvErr 



0765! 

BE BD00 


LEA 

SI.noSrvMsg 

;no server on netwo 

0768! 

E9 *HHm- 


JMP 

printMsg 


076B ! 



need64err 



076B ! 

BE E700 


LEA 

SI,need64nsg 

;need 64k message 

076E! 

E9 


JMP 

printMsg 


0771 ! 



printMsg 



0771 ! 

E8 


CALL 

pr .intStr 


0774 I 



420 



0774! 

EBFE 


JMP 

$20 

; loop forever 

0776! 



printStr 



0776 i 

2E AC 


LGDSB 

AL., CS : 6 I .? 


0778 ‘ 

0 A L 0 


OR 

AL , AL 

i is it the end 

077A! 

7 4#* 


JE 

♦ 10 

/ yes 

077C 1 

B4 OE 


MOV 

AH, 14. 

i TTY write command 

077E! 

B7 00 


MOV 

3H, 0 

i write page zero 

0780! 

CD 10 


I NT 

ION 

/call ibm rom i/o r 

0782! 

EBF2 


JMP 

printStr 


0784 I 



♦to 



0784! 

€3 


RET 



0785! 






0785! 

00 00 00 00 00 

00 00 


.QRG 7FEH 

;end of Rom 

07FE! 

01 


i nterFacs 

.BYTE cardType 

; identifys card typ 

07FF! 

15 


varsionMark 

.BY'KE version 


0800! 




. END 



ad d 




i 


c 

€ 

f 

€ 

€ 

f 

C 

f 

I 

« 

t 

t 


Page 


3MRGM File: 

Symbol T 

able 


AS - 

Absolute 

LB - Label 

UD - 

Undefined 

MC - Macro 

RF 

PS " 

Ref 

Pub lie 

DF - Oaf 

P V — Privat 

PR - 
e CS *”” 

Pr o e 

Cons ts 

FC - Func 


BCMD 

LB 

0179,' 

BDATA LB 

0171 1 

BOOTBLOC 

AB 

0002 S 

BOOTCMD 

A3 

0000 

BOOTSERV 

AS 

7000 i 

BOOTSOUR AB 

7001 1 

BOOTTYPE 

AB 

0001 * 

BRCfiD 

LB 

0185 

CALLENTR 

AS 

000 6 1 

CALLTABL LB 

0190 \ 

CANRECVC 

LB 

0124 ! 

CANRESUL 

LB 

0116 

CHKTIMEO 

LB 

0690; 

CHD AB 

QQQC i 

CMDADDR 

AB 

00131 

CMDBYTE 

AB 

0012 

DUMMYIRE 

LB 

Q06F? 

DUPXPORT LB 

ODBC I 

ECHOCMD 

LB 

016C 1 

ECHOHOST 

LB 

0170 

FLATCBL 

AB 

0001 J 

FLATDATA AB 

02EE1 

FLAT101 

LB 

03BA1 

FLATREAD 

AB 

0001 

FLIPREL 

MC 

__ t 

1 

GETSTQPT LB 

053D 1 

GQCMD 

LB 

0119 1 

GODATA 

LB 

010F 

HELLO 

LB 

0692 \ 

HELLOMSG LB 

OOOC 1 

XBMROM 

PR 

- { 

IBMTYPE 

AB 

0009 

INTERFAC 

LB 

07FE 1 

I GENTRY AB 

00061 

IOSTART 

LB 

0006 1 

LOADADD 

AB 

7C00 

LOADBTEN 

LB 

0750 » 

LOADSTER LB 

07 5F! 

LOADBTST 

LB 

06E2.1 

MASK 

A3 

0017 

NOSRVMSG 

LB 

OOBD1 

OMCfiDS I Z AB 

0095 1 

OliDATA 

AB 

024B t 

OHGETOAT 

LB 

04B9 

QMINIT 

LB 

01E9 * 

OHINI TEN LB 

0242! 

OMLOCNTR 

AS 

024A 1 

OMNINET 

AB 

0000 

OMRDYBIT 

AB 

0080! 

OMSETCNT LB 

04DA 1 

0M3ETUP 

LB 

04F8 ! 

OMSETUP1 

LB 

04FE 

OMVEC TEN 

LB 

0190,' 

OMVECTOR LB 

OOFS 1 

PRINTMSG 

LB 

07 71 i 

PRINTSTR 

LB 

0776 

RCVSOCKE 

AB 

goeq; 

RECVBUF LB 

01901 

RECVBUFA 

AB 

0002 i 

RECVLEN 

AB 

OOOA 

RESTLEN 

LB 

014D i 

RESTRESU LB 

01151 

RESTSOCK 

AB 

OOAO i 

RETRYS 

AB 

OOOF 

ROMI00 

LB 

0243 1 

ROM 101. LB 

0281 1 

ROMI01ER 

LB 

0318 ! 

ROMI02 

LB 

03 IE 

RGMI03ER 

L.B 

03 IB ! 

R0MI03EX LB 

03B4 1 

ROMI04 

LB 

0334 I 

RCMI04ER 

LB 

031B 

RSLTADDR 

AE 

0015 1 

SCHD LB 

01391 

SCMDDATA 

LB 

013F 1 

SENDBUF 

LB 

0130 

SENDSOCK 

AB 

OOBO \ 

SERVER AB 

GOOD 1 

SETUPS 

LB 

062A 1 

SETUPBR 

LB 

0636 

SETUPREG 

LB 

OSAO1 

SETUPRES LB 

05CD1 

SETUPRSR 

LB 

05EB 1 

3ETUPSCA 

LB 

0606 

SNDRRETL 

LB 

0108: 

SHDRTOLE LB 

0106 1 

SRESULT 

LB 

01021 

3RVCMD 

LB 

0151 

SRVRCMDD 

LB 

01631 

SRVRCMDL LB 

01651 

SRVRESUL 

LB 

010A1 

SRVRHOST 

LB 

010C 

STACKADD 

AE 

fffe: 

STOPTIME AB 

00101 

VERSION 

AB 

0015! 

VERSIONM 

LB 

07FF 

WHOCMD 

LB 

01681 

WHQRESUL LB 

01171 

WORKEND 

AB 

00 IF 1 

WORKSIZE 

A3 

00 IF 

XRESULT 

AB 

00181 

XR ETC ODE" AB 

00IE! 

XRETLEN 

AB 

001C 1 





I 


f 


I 


I 


f 

€ 

f 


f 


i 









Page - 34 IEMRQM File: *** ROM for IBK/FC OMN 1NET/FLATCABLE INTERFACE 


Assembly complete: 1754 lines 

0 errors flaggeo on this assembly 



